% 
® # 


NT 1/89 DIN] 1A,8ONOS IRAAUSAR GR 


Machenisie 
mehraus 
Ihremi@i6/B 


NS 


Sonderheft Nr. 1/89 — DM 14,80/ÖS 124/SFR 14,80 CA-Special 


Computer von Abis Z 


Was sie können 
Was sie kosten 
Was sie leisten 


GRUNDLAGEN 


BLACK BEAUTY 
Eine komplette 
Einführung in 
die Maschinen- 
sprache 
Seite 4 


TIPS & TRICKS 


DRUCKEN MIT 
JEDEM MODELL 
Mit nur zehn Mark 
sind Sie dabei: 
Dies kostet Sie ein 
Centronics-Interface 
für den C16/C116 
oder den Plus 4 
Seite 


AUS ZWEI 

MACH ACHT 

Mit einem Schiebe- 

register werden 

aus zwei Daten- 
- leitungen derer acht 

Seite 26 

IN BASIC 
PROGRAMMIEREN? 
Ein Einstieg in die 
meistverbreiteste 
Programmiersprache 


der Welt Seite 28 


SORTIER- 
ALGORITHMEN 
Gut sortiert ist 
halb gefunden. 
Der Überblick der 
gebräuchlichsten 
Sortierroutinen 


Seite 61 


HARDCOPIES 
FÜR JEDEN 
DRUCKER 
Organisation des 
Grafikbildschirms, 
Konvertierung für 
den Drucker 

Viele begleitende _ 


Listings Seite 71 


VOM JOYSTICK 

BIS SCRIPT/PLUS 

Alarmanlage mit 

Joystickports — 

Silbentrennung 

mit Script/Plus 
Seite 


87 


SCHILDKRÖTE 

IN DEUTSCH 

Programmieren 

mit Igel-Grafik 
Seite 


SERVICE 


MEGA-TOOL 

31 neue Befehle 
für die 3.5-Reihe 
der Commodore- 
Computer 


97 


Seite 31 
BESTELL-COUPON 
Unser Disketten- 

Service für alle, 

denen es zu müh- 

sam ist, die abge- 
druckten Listings 
abzutippen 


Seite 64 


CHECKSUMMER 
Tippfehler in 
BASIC-Listings 
haben keine 
Chance mehr 

Seite 123 


CHECKMON 
Unsere Eingabe- 
hilfe für alle abge- 


“ druckten Maschinen- 


sprache-Listings 
Seite 124 


LISTINGS 


GRAFIX 3D 
Erzeugung drei- 
dimensionaler 
Grafiken nun auch 
für Sie möglich 
Seite 


HANDELSREISE 
Schiffe kaufen, 
Waren verladen und 
verkaufen. Mit etwas 
kaufmännischem 
Geschick werden 

Sie reich 


36 


Seite 49 


FUNKTIONS- 
PLOTTER 
Plottet, zeichnet 
und rechnet 
Mehr darüber ab 


Seite 57 


UNIVERSELLE 
DATEI 
Bis zu 20 unter- 
schiedliche 
Dateien werden 
verwaltet Seite 67 
OPTIK FÜR 
IHRE ZAHLEN 
Am Beispiel drei 
verschiedener 
Diagrammformen 
zeigen wir Ihnen, wie 
sich sonst so nüchter- 
ne Zahlen grafisch 
darstellen lassen 
Seite 79 
VON KASSETTE 
AUF DISKETTE 
Das Kopierpro- 
gramm macht auch 
vor Auto-Start 
und Turbolader 
nicht halt 
Seite 84 
HASTE TÖNE? 
Der Computer 
spielt vom Blatt 
Seite 90 
RÄUBER 
Suchen Sie den 
Schatz im 3-D-Laby- 
rinth. Die Zeit läuft 
mit. Wer ist der 
Schnellste? 
Seite 111 
SPRITES UND 
ANIMATION 
Unsere BASIC- 
Erweiterung bringt 
Bewegung ins Spiel 
R Seite 116 


ZEICHENCREATOR 
Entwickeln Sie Ihre 
eigenen Zeichen auf 
dem C16. Einfach 
und schnell mit 
dem Joystick und 
Menüunterstützung 

Seite 125 


BGRUNDLAGEN EEE 


MASCHINENSPRACHE 


Black Beauty: 
inden „Kleinen” 


steckt 


mehr, 


als Commodore 
eingebaut hat 


Mehr als eine bloße Übersicht über Befehlssatz, Adressierungsarten 
und Flagbeeinflussungen bietet diese Einführung. Im Vordergrund stehen 
Übung und Praxis. Dafür sorgt das Programm CPU-TRAINER, mit 
dem CPU-Befehle direkt eingegeben und auf ihre Wirkung 

beobachtet werden können. 


Viele Probleme lassen sich in BASIC 
nur unzureichend lösen. Oft ist BA- 
SIC’zu langsam oder total ungeeig- 
net. Der direkte Weg, der Griff zur 
Maschinensprache, ist vielen noch 
versperrt, da die nötigen Informa- 
tionen fehlen. Sollte dem einen 
oder anderen der Befehlssatz der 
CPU-7501 oder 6502 bereits be- 
kannt sein, so hilft dieses herzlich 
wenig, wenn er das Betriebssystem 
des Rechners nicht kennt. 

Ohne die Kenntnis wichtiger 1/O- 
Adressen und -Routinen läßt sich 
nicht einmal ein einziges Zeichen 
von der Tastatur einlesen oder auf 
den Bildschirm bringen. Wir bespre- 
chen daher auch die wichtigsten 
Kernel-Routinen, das Port-Register 
und einige interessante Register des 
TED-Chips, der für Bild und Ton 
zuständig ist. 

Sie lernen, wie ein Ein- oder Ausga- 
bekanal definiert werden kann, wie 
Sie Zeichen auf den Drucker sen- 
den, wie Sie etwas auf Kassette oder 
Diskette ausgeben können, und wie 


Sie sie auch wieder von dort einlesen. 


Wenn die CPU auch keine Multipli- 
kation kennt, mit einem bestimm- 
ten Algorithmus läßt sie sich ver- 
wirklichen. Mit dem TEDMON, 

dem eingebauten Maschinenmonitor, 
können wir kleine Programme schrei- 
ben. Vom CPU-TRAINER aus kön- 
nen wir sie aufrufen und deren Er- 
gebnisse kontrollieren. 

Wie Sie sehen, ist der Rahmen unse- 
rer Einführung sehr weit gespannt. 
Wenn Sie diese gewissenhaft durch- 
arbeiten, sind Sie bereits in der La- 


ge, selbst kleine Maschinenprogram- 
me zu verfassen. In den folgenden 
C16-P4-SPECIAL-Heften werden 
wir Ihnen, da Sie jetzt die Grundla- 
gen dafür bekommen, erstaunliche 
Tips und Tricks zeigen, mit denen 
Sie das Betriebssystem des Rechners 
nach Ihrem Gutdünken manipulie- 
ren können. Ein Druckerpufter, ei- 
ne interruptgesteuerte Uhr oder ein 
nichtblinkender Cursor sind dann 
nicht mehr schwer zu programmie- 
ren. 


I. DER CPU-TRAINER 


Dieses Programm wird uns durch 
unseren ganzen Einführungskurs be- 
gleiten. Es ermöglicht die Direkt- 
eingabe von CPU-Befehlen. 

Das Programm besitzt einen Maschi- 
nensprache- und einen BASIC-Teil. 
In Zeile 100 wird das BASIC-Ende 
auf die Adresse $3000 herabgesetzt. 
Ab dieser Adresse können wir uns 
im Hauptspeicher unseres Rechners 
austoben. Der in den DATA-Zeilen 
130 bis 320 abgelegte Maschinenteil 
wird durch die Zeilen 110 und 120 
im Bereich von $065E bis $06D2 ab- 
gelegt. Er enthält am Anfang die 
Routine zur Übernahme der Regi- 
sterinhalte in die CPU, zur Ausfüh- 
rung des CPU-Befehles und zum Zu- 
rückschreiben der CPU-Register in 
die dafür vorgesehenen Speicher- 
stellen. 

Die restlichen Routinen sorgen für 
die Sonderbehandlung der in Zeile 
1260 vermerkten Befehle. In Zeile 
330 werden die für die Registerinhal- 
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te reservierten Speicherstellen mit 
den Inhalten der CPU-Register oder 
mit dem Wert 127 initialisiert. 

Ab Zeile 370 beginnt der eigentli- 
che BASIC-Teil. Es werden Varia- 
blen, die für die Bildschirmausgabe 
wichtig sind, die entsprechenden In- 
halte zugewiesen. Interessant sind 
hier die Zeile 480 und 490, durch 
die die Inhalte der Variablen A$(0) 
bis A$(6) in Zeile 380 bis 440 um- 
gewandelt werden. 

Die auf jedem Drucker darstellba- 
ren Zeichen O und a bis j werden 
durch die in den DATA-Zeilen 450 
und 460 vermerkten Codes ersetzt, 
die nachher auf dem Bildschirm er- 
scheinen sollen. 

Der Bildschirmaufbau — Zeile 570 
bis 630 — begnügt sich mit wenig 
Programmzeilen, da geschickt auf 
die Bildschirmvariablen und Unter- 
programme zurückgegriffen wird. 
Die Eingabe in den Zeilen 680 bis 
760 wurde nicht durch einen INPUT- 
Befehl realisiert. 

Auffallend ist, daß auch kein GET- 
oder PRINT-Befehl im Programm 
vorkommt. Anstelle der Befehle, die 
auf ein definiertes Ein- oder Ausgabe- 
gerät zugreifen, oder dieses umdefi- 
nieren, verwendeten wir neben dem 
CHAR-Befehl die SYS-Aufrufe 
SYS60381 und SYS56393. SYS 
60381 ersetzt den GET-Befehl. Das 
Zeichen wird unabhängig vom aktuel- 
len Eingabegerät immer von der Ta- 
statur eingelesen. Das abgefragte Zei- 
chen wird von der Systemroutine im 
Akku abgelegt. 

Nach dem SYS-Aufruf befindet es 
sich daher in Speicherstelle 2034, 
aus der wir es mit einem PEEK her- 
vorholen können. Statt PRINT ver- 
wendeten wir SYS56393. Es kann 
nur ein einziges Zeichen ausgegeben 
werden. Dessen ASCII-Wert ist vor- 
her mit einem POKE in die Speicher- 
stelle 2034 zu bringen. 

Der SYS-Aufruf lädt den Akku mit 
diesem Wert, die Systemroutine gibt 
das Zeichen unabhängig vom aktuel- 
len Eingabegerät immer auf den 
Bildschirm aus. So wurde dafür Sor- 
ge getragen, daß auch bei umdefinier- 
ten Ein- und Ausgabegeräten unsere 
Bildschirmausgaben immer auf den 
Bildschirm gelangen und auch bei 
umdefiniertem Eingabegerät die Ab- 
frage unserer Eingabe funktioniert. 
Nach einer Eingabe definieren wir 
uns in den Zeilen 830 und 840 ein 
leeres Fenster. Bildschirmausgaben, 
die wir durch ein Maschinenpro- 
gramm veranlassen, sollen die Dar- 
stellung der CPU-Register nicht be- 
einflussen. Beim Sprung in den Mo- 
nitor mit BRK soll uns der ganze 
Bildschirm zur Verfügung stehen 
(Zeile 820). 


Wr BEE GRUNDLAGENE 


Nach der Befehlsabarbeitung sorgte 
Zeile 680 wieder für den neuen Bild- 
schirmaufbau. In Zeile 850 wird 
durch den GOSUB-Befehl die ei- 
gentliche Abarbeitung veranlaßt. In 
Zeile 1180 findet eine Verzweigung 
statt, wenn es sich nicht um einen 
Ein-Byte-Befehl handelt. Die Unter- 
routine in Zeile 1050 untersucht, ob 
ein existierender Befehl vorliegt, 
und übergibt in diesem Falle einen 
weiter zu verarbeitenden Wert. 
Dieses ist im Normalfall der Opera- 
tionscode für die CPU oder bei der 
Sonderbehandlung in Zeile 1240 bis 
1260 die Adresse der anzuspringen- 
den Routine. In Zeile 1200 wird der 
Operationscode an die richtige Stel- 
le in das Maschinenroutine einge- 
fügt, und nachher die Routine mit 
SYS1630 aufgerufen. Da für den 
Operationscode drei Byte reserviert 
sind, werden die verbleibenden zwei 
Stellen mit dem NOP-Code gefüllt, 
der die CPU zu keiner Operation ver- 
anlaßt. 

In Zeile 1380 bei den Zwei-Byte-Be- 
fehlen folgt dem Operationscode 
ein Datenparameter, daher ist hier 
nur noch ein NOP-Code erforderlich. 
In den Zeilen 1550 bis 1570 bei den 
Drei-Byte-Codes folgen dem Opera- 
tionscode zwei Adreß-Byte. 


Il. DIE ERSTEN SCHRITTE 


Die Datenübergabe vom Speicher zu 
den Registern, von den Registern 
zum Speicher, dem Datentransfer 
zwischen den Registern, und das 
Retten von Registerinhalten auf den 
Stapel bekommen wir mit einigen 
wenigen Befehlen in den Griff. 
Fünf der sechs CPU-Register sind 
auf dem Bildschirm dargestellt. Die 
Inhalte können wir in binärer, hexa- 
dezimaler und dezimaler Form be- 
trachten. Ein Fragezeichen signali- 
siert, daß das Programm offensicht- 
lich auf eine Eingabe wartet. Wenn 
wir jetzt CPU-Befehle in mnemoni- 
scher Form eingeben, können wir 
beobachten, wie die CPU-Register 
auf unsere Befehle reagieren. Ma- 
chen wir uns also mit der Materie 
vertraut und starten unsere ersten 
Versuche. 


Laden und Speichern 
Wir geben ein: 


LDA #801 
LDY #$02 
LDY #$03 


Wie wir wohl vermutet haben, zeigen 
unsere ersten drei Register die Wer- 
te eins, zwei und drei. Die Adressie- 
rungsart, die durch #$ gekennzeich- 
net wird, und die den darauffolgen- 


den Wert in das Register lädt, heißt 
unmittelbare Adressierung. 

Es existieren auch Befehle, die für 
sich allein stehen können, ohne daß 
noch irgendwelche Daten oder son- 
stige Parameter zu folgen brauchen. 
Diese Adressierungsart heißt implizi- 
te Adressierung. Ein sehr interessan- 
ter Befehl ist der Break, der mit 
BRK abgekürzt wird. Geben Sie 
doch einmal ein: 


BRK 


Das Bild auf dem Bildschirm hat 
sich auf einmal total verändert. Wir 
befinden uns jetzt nicht mehr in un- 
serem BASIC-Programm, sondern 
im Maschinen-Monitor TEDMON, 
der in unseren Rechner von Haus 
aus eingebaut ist. Der BRK-Befehl 
löst einen Software-Interrupt aus, 
der beim C16/116/Plus4 und auch 
beim C128 zum Aufruf des TED- 


SPRUNG IN DEN MONITOR 


MON ıührt. Daß nichts mehr von 
unserem früheren Bildschirminhalt 
zu sehen ist, dafür kann der TED- 
MON nichts. Das CPU-Programm 
war so frei, für einen sauberen Bild- 
schirm zu sorgen. Auch der Maschi- 
nen-Monitor zeigt uns die Register- 
inhalte, wenn auch nur in hexade- 
zimaler Form allein. 

Ein Unterschied fällt sofort ins Au- 
ge. Gleich an erster Stelle findet 
sich der Programmzähler, der mit 
PC für Programm Counter abgekürzt 
ist. Dieses Register ist nicht nur ein 
Byte, sondern zwei Byte breit. 
Schließlich muß es alle Adressen 
von $0000 bis $FFFF erreichen 
können. Zur Zeit zeigt es auf eine 
Stelle im Maschinenteil unseres Pro- 
grammes, wo es anschließend weiter- 
geht, wenn wir mit einem Go dafür 
sorgen. Wir geben ein: 


G 


Nach dem Druck der RETURN-Ta- 
ste zeigt der Bildschirm wieder das 
vertraute Bild mit den CPU-Regi- 
stern. Sehr kurz war der Blick in den 
TEDMON. Vielleicht ist Ihnen be- 
reits noch eine zweite kleine Abwei- 
chung aufgefallen. Prägen Sie sich 
doch einmal den Inhalt des Stapel- 
zeigers ein und gehen dann wieder 
mit BRK in den Monitor. 

Der Stackpointer SP weist einen 
ganz anderen Wert auf. Das CPU-Pro- 
gramm simuliert einen Stapelzeiger 
mit anderem Wert, damit beim Her- 
umprobieren ein Programmabsturz 
nicht so leicht verursacht werden 
kann. 

Ein sehr wichtiger Bestandteil des 
Rechners neben der CPU ist der 
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Speicher. Mit dem Monitor können 
Sie sehr leicht Speicherbereiche be- 
trachten. Wir geben ein: 


M3000 


Von der Adresse $3000 ausgehend, 
wird ein Speicherabschnitt in hexa- 
dezimaler Form dargestellt. Rechts 
finden wir invers die ASCII-Dar- 
stellung davon. Da ein Rechner auch 
Texte speichern soll, ist es interes- 
sant, zu sehen, wo ein Text abgelegt 


ist. 

Das BASIC-Ende wurde vom CPU- 
Programm auf $3000 gelegt. Daher 
steht uns ab dieser Adresse der 
Hauptspeicher des Rechners fast un- 
eingeschränkt zur Verfügung. Wir 
sorgen zunächst einmal für einen 
sauberen Speicher mit 


F300,3FFF,O 


Der Bereich von $3000 bis $3FFF 
ist nun vollständig mit Nullen ge- 
füllt. Wir sehen uns nun wieder den 
ersten Abschnitt an $3000 mit 


M3000 


Wenn nun nach den folgenden Mani- 
pulationen andere Werte hier drin- 
stehen sollten, kann keiner mehr sa- 
gen, dies wäre schon vorher der Fall 
gewesen. Wir können nun mit G ge- 
trost den Monitor wieder verlassen. 
Mit LDA, LDX und LDY nur unmit- 
telbar Werte in die Register zu schie- 
ben, ist uns zu wenig, denn die Da- 
ten, um die es geht, befinden sich in 
der Regel irgendwo im Hauptspei- 
cher des Rechners. Daten können 
nur durch die CPU verarbeitet wer- 
den. Daher muß es auch Befehle ge- 
ben, die die Daten vom Speicher in 
CPU und wieder von der CPU in den 
Rechner befördern. 

Beginnen wir mit dem Weg von der 
CPU in den Speicher. Uns stehen die 
Speicher- oder auch die Store-Befeh- 
le STA, STX und STY zur Verfü- 
gung. Diesen Speicherbefehlen muß 
eine Adreßangabe folgen, die angibt, 
wo im Hauptspeicher die Register- 
inhalte gespeichert werden sollen. 
Wir geben ein: 


LDA #854 ° 
STA $3000 
LDA #845 
STA $3001 
LDA #$53 


LDA #854 
STA $3003 


Diese Adressierungsart, bei der dem 
Operationscode die Speicheradresse 


BGRUNDLAGEN REpEE EEE EEE 


folgt, heißt absolute Adressierung. 
Gekennzeichnet wird sie durch das 
$-Zeichen, gefolgt von einer vierstel- 
ligen HEX-Zahl. Unsere CPU kennt 
auch noch weitere Adressierungsar- 
ten, bei denen nur ein einziges Byte 
in Form von zwei Hexziffern anzu- 
geben ist, oder solche, bei denen das 
X- oder Y-Register mit zur Adreßbil- 
dung verwandt wird. Um das Pro- 
gramm nicht allzusehr aufzublasen, 
wurde darin auf weitere Adressie- 
rungsarten jedoch verzichtet. 

Um den Erfolg unseres Speichertests 
zu begutachten, sollten Sie sich im 
Monitor nochmals den Bereich ab 
$3000 ansehen. Wie dieses vor sich 
geht, dürfte Ihnen inzwischen be- 
reits bekannt sein. Wir finden die er- 
warteten Werte, die in ASCII-Dar- 
stellung das Wort TEST ergeben. 
Nicht nur die Speicherbefehle, son- 
dern auch die Ladebefehle lassen 
sich absolut adressieren. Spaßeshal- 
ber wechseln wir einmal das Re- 
gister: 


LDX $3000 
STX $3008 
LDX $3001 
STX $3009 
LDX $3002 
STX $300A 
LDX $3003 
STX $300B 


Wir haben damit die von $3000 bis 
$3003 abgelegten Werte nach $3008 
bis $300B übertragen, wie uns die 
Überprüfung mit dem Monitor be- 
stätigt. i 


Transferieren zwischen Registern 


Datenübertragung von CPU-Register 
nach Speicher und umgekehrt ken- 
nen wir jetzt schon. Irgend etwas 
scheint aber noch zu fehlen. Wenn 
wir einen Wert verändern, so kommt 
es oft vor, daß wir gerne den ur- 
sprünglichen Zustand wiederherstel- 
len würden. Im Akku könnte zum 
Beispiel ein Wert stehen, den wir für 
irgendwelche Zwecke benötigen. 
Vorher sollen aber noch ein paar Re- 
chenoperationen erfolgen, die leider 
den Akkuinhalt verändern. 

Eine Lösungsmöglichkeit ist mit un- 
serem bisherigen Wissen bereits 
denkbar. So könnten wir den Akku- 
inhalt einfach an irgendeiner Adres- 
se abspeichern und unseren Wert, so- 
bald er wieder gebraucht wird, er- 
neut einladen. Doch warum sollen 
Daten, die wir bereits in der CPU 
bereit haben, erst wieder in das 
RAM geschrieben und dann wieder 
hergeholt werden? 

Speicherzugriffe kosten mehr Zeit 
als reine CPU-Operationen, und au- 


ßerdem mehr Platz, da immer noch 
eine Speicheradresse anzugeben ist. 
Es sollte doch auch Möglichkeiten 
geben, Daten direkt von einem Regi- 
ster in das andere zu transferieren. 
Diese Transferbefehle gibt es selbst- 
verständlich. Um Daten vom Akku 
in die Intexregister X und Y zu 
schaufeln, gibt es die. Befehle: 


TAX 
TAY 


Den umgekehrten Weg ermöglichen: 


TXA 
TYA 


Scheuen Sie sich nicht, dies ruhig 
auszuprobieren. Solange nur ein 
oder zwei Werte gerettet zu werden 
brauchen, und die anderen Register 
nicht für andere Zwecke benötigt 
werden, ist dieses Verfahren ein 
brauchbarer Weg. 

Oft werden aber Unterroutinen an- 
gesprungen, die alle Registerinhalte 
verändern. In diesen Unterroutinen 
kann wiederum der Bedarf beste- 
hen, neue Registerinhalte zu retten. 
Als Ausweg erscheint in diesem 
Falle nur das Abspeichern in dafür 
vorgesehenen Speicherplätzen gang- 
bar zu sein. Jede Unterroutine 
bräuchte also wieder ihre besonde- 
ren Speicherstellen zum Retten der 
Register. 

Nicht leicht ist es wohl, da noch 
den Überblick zu behalten. Für re- 
kursive Programmierung, bei der 
ein Unterprogramm sich selbst mehr- 
mals aufruft, bringt auch dieses kei- 
ne Lösung. Die vorgesehnen Spei- 
cherstellen würden bei jedem rekur- 
siven Aufruf neu überschrieben wer- 
den, wodurch die früheren Werte 
verlorengehen. Das Stapelregister 
sorgt hier für Abhilfe, 


Der Prozessorstapel 


Laden Sie einmal einen beliebigen 
Wert in den Akku. Um diesen zu 
retten, geben wir jetzt den Befehl 
ein: 


PHA 


Wenn Sie dabei auf das Stapelregi- 
ster geachtet haben, haben Sie si- 
cherlich eine Veränderung wahrge- 
nommen. Wenn nicht, so beobach- 
ten wir es bei einem erneuten Ver- 
such. Laden Sie bitte den Akku mit 
einem neuen Wert und retten Sie 
diesen wieder mit PHA. 

Der Wert des Stapelzeigers wurde 
jedesmal um den Betrag eins verrin- 
gert. Wenn wir unsere geretteten 
Werte vom Stapel wieder abheben, 
so beobachten wir umgekehrt ein 
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Erhöhen des Stapelzeigers. Vorher 
laden wir noch schnell den Akku 
mit einem anderen Wert, damit wir 
das Erscheinen der alten Werte se-. 
hen. Wir geben ein: 


PLA 


Es erscheint der zuletzt gerettete 
Wert. Nach einem erneuten PLA ha- 
ben wir auch den zuerst geretteten 
Wert wieder. Der Stapelzeiger müß- 
te nun wieder, wie am Anfang, den 
Wert 7F aufweisen. Um zu untersu- 
chen, was geschehen ist, geben wir 
ein: 


LDX $017F 
LDY $017E 


Wir sehen, vielleicht auch zu unserer 
Verblüffung, die ehemals geretteten 
Werte nun in den Indexregistern ste- 


en. 

Der Stapel funktioniert folgender- 
maßen: Für den Stapel ist ein RAM- 
Bereich von $0100 bis $01FF reser- 
viert. Der Inhalt des Stapelzeigers 
gibt das Low-Byte der Adresse an, 
in die der Registerinhalt bei einem 
PUSH-Befehl geschrieben wird. 

Der Stapelzeiger wird zusätzlich um 
den Wert eins erniedrigt, so daß er 
nun auf die nächstniedrige Adresse 
weist. So können verschiedene Dater 
hintereinander gerettet werden, oh- 
ne daß sie sich gegenseitig ins Gehe- 
ge kommen. 

Beim PULL-Befehl wird der Stapel- 
zeiger wieder um Eins erhöht, und 
der unter der Adresse mit High-Byte 
O1 und dem Stapelzeigerinhalt als 
Low-Byte in das entsprechende Re- 
gister geladen. Nicht nur der Akku 
kann ‚„gestapelt‘‘ werden, sondern 
auch das Statusregister. Die Befehle 
hierfür sind: 


PHP 
PLP 


Wir können somit alle Registerinhal- 
te auf den Stapel retten: 


Abheben müssen wir den Stapel in 
umgekehrter Reihenfolge: 


PLA 
TAY 
PLA 
TAX 
PLA 
PLP 


BEE SRUNDLAGENE 


Die Stapelbefehle erlauben uns gar, 
mit dem Statusregisterinhalt genau- 
so, wie mit sonstigen Daten umzu- 
gehen. Wir bekommen die Werte in 
den Griff mit: 


PHP 
PLA 


Das Zurückübertragen macht auch 
keine besonderen Schwierigkeiten: 


PHA 
PLP 


Sogar das Stapelregister bekommen 
wir mit zwei Transferbefehlen völ- 
lig in den Griff: 


TSX' 
TXS 


Übersicht der besprochenen 
Befehle 


Laden :LDA, 10%, LDY 
Speichern SIA SIS SIY 
Transferieren TAX TAN, TSX 
IXA, TIYA, T3%S 
Stapeln PHA, PHP 


PLP 


Ill. SCHALTEN MIT DER CPU 


Einzelne Bit lassen sich mit den 
Befehlen ORA, AND und EOR set- 
zen. Damit können wir verschiede- 
ne Umschaltungen in den TED-Re- 
gistern vornehmen. Den Bildschirm 
auf 24 Zeilen oder auf 38 Spalten 
umzuschalten, ist relativ einfach zu 
handhaben. 


Mit dem Computer lassen sich nicht 

nur Daten verwalten. Besondere 

Bausteine, die wir über bestimmte 

Adressen ansprechen können, erlau- 

ben uns, die verschiedensten Um- 

schaltungen vorzunehmen. Oft ist 

es nur ein einziges Bit, das geändert 

werden soll. Die Änderung der an- 

deren Bit könnte zu unerwünsch- 

ten Ergebnissen führen. 

Interessant sind vor allen Dingen die 

Multifunktionsregister des TED- 

Chips und der serielle Port unseres 

Rechners. Bevor wir uns mit diesen 

Bausteinen ausgiebig befassen, sind 

zuerst die Befehle zur Bit-Manipula- 
. tion zu besprechen. Wir geben ein: 

LDA #$00 

LDA #801 

LDA #$02 

LDA #804 

LDA #908 

LDA #$10 

LDA #$20 

LDA #$40 

LDA #380 


= 


Ein bestimmtes Bit läßt sich mit dem LDA #$08 


Ladebefehl leicht setzen. Der Nach- 
teil ist, daß die bereits vorhandenen 
Bit leider auch verändert werden. 
Zum Verändern einzelner Bit eignet 
sich der Befehl EOR. Probieren Sie 
doch einmal: 


LDA #899 
EOR #$01 
EOR #$02 
EOR #304 
EOR #308 
EOR #$10 
EOR #820 
EOR #840 
EOR #$80 


Wir haben ein Bit nach dem ande- 
ren umgedreht. Es lassen sich natür- 
lich auch alle umdrehen mit: 


EOR #$FF 


Für uns könnte der EOR-Befehl be- 
reits ausreichend sein, da wir ja se- 
hen, ob ein bestimmtes Bit bereits 
den gewünschten Wert hat, oder 
nicht. Wenn nein, wenden wir den 
EOR-Befehl an, wenn ja, dann eben 
nicht. Die CPU nachsehen zu lassen, 
ob ein Bit gesetzt ist, oder nicht 
und gegebenenfalls mit dem EOR- 
Befehl zu reagieren, wäre wohl et- 
was aufwendig. Daher existieren die 
Befehle ORA und AND, mit denen 
unabhängig vom Bit-Zustand die- 
sem in jedem Falle der Wert eins 
oder null zugewiesen werden kann: 


LDA #899 
ORA #$01 
ORA #$02 
ORA #804 
ORA #808 
ORA #$10 
ORA #$20 
ORA #840 
ORA #880 


Ebenso wie beim EOR-Befehl lassen 
sich auch mehrere Bit setzen: 


LDA #881 
ORA #818 


Die zwei mittleren Bit sind durch 
den ORA-Befehl hinzugekommen. 
Um zu wissen, welche Werte wir für 
den AND-Befehl brauchen, sollten 
wir die Werte, mit denen wir vorher 
geordert hatten, invertieren, und 
uns die Resultate merken: 


LDA #$01 
EOR #$8FF 
LDA #$02 
EOR #$FF 
LDA #804 
EOR #$FF 


EOR #5FF 
LDA #$10 
EOR #$FF 
LDA #$20 


-EOR #$FF 


LDA #840 
EOR #$FF 
LDA #880 
EOR #$FF 


Wir können nun den Akku wieder 
mit #599 oder auch einem anderen 
Wert laden, und das Nullsetzen der 
Bit beobachten. 


LDA #899 
AND #$FE 
AND #$FD 
AND #$FB 
AND #$F7 
AND #$EF 
AND #$DF 
AND #$BF 
AND #87F 


Es lassen sich wieder mehrere Bit 
auf einmal setzen. Wir laden hierzu 
das X-Register. 


LDX #$7E 


Wir können sehen, daß die äußeren 
beiden Bit den Wert Null haben. 
Beim Undieren mit diesem Wert wür- 
den folglich die äußeren Bit auf Null 
gesetzt. 


LDA #$99 
AND #8$7E 


Probieren Sie ruhig noch ein wenig 
mit den Befehlen EOR, ORA und 
AND herum, denn Übung macht ja 
bekanntlich den Meister. Sie können 
auch die absolute Adressierung ver- 
wenden, bei welcher der Inhalt einer 
Speicherzelle mit dem Akkuinhalt 
verknüpft wird. 


Die Register des TED-Chips 


Die Register des TED-Chips werden 
angesprochen über die Adressen 
$FF00 bis $FF3F. Hier ist eine klei- 
ne Zusammenstellung: 


BEIGRUNDLAGEN 


Low-Byte Timer A 
High-Byte Timer A 
Low-Byte Timer B 
High-Byte Timer B 
Low-Byte Timer C 
High-Byte Timer C 
Multi-Funktions- 
Register I 
Multi-Funktions- 
Register II 
Tastaturregister 
Interrupt Request 
Register 

Interrupt Mask Register 
Rasterinterrupt 
Cursorpositon High-Byte 
Cursorpositon Low-Byte 
Tonhöhe Tongenerator 1 
Tonhöhe Tongenerator 2 
Tonhöhe Tongenerator 2 
Bit 8/9 
Multi-Funktions- 
register III 
Muiti-Funktions- 
register IV 
Zeichensatz-Adresse 
Basisadresse Farb-/ 
Video-RAM 
Hintergrundfarbe 
Zeichenfarbe 
Multicolor-Farbe 1 
Multicolor-Farbe 2 
Rahmenfarbe 
Bit-Mapping 1 
‚Bit-Mapping 2 

Aktuelle Rasterzeile 

Bit 8 

Aktuelle Rasterzeile 

Bit 0-7 

Rasterspalte 
Vertikal-Adresse 
Umschaltung auf ROM 
Umschaltung auf RAM 


Der TED-Chip besitzt eine ziemliche 
Anzahl von Registern. Viele davon 
sind erst bei fortgeschrittenen Sy- 
stemkenntnissen interessant. Wir 
picken uns einige davon heraus, an 
denen wir sehr schön einige heraus- 
stechende Effekte beobachten kön- 
nen. Gut eignen sich hier die vier 
Multi-Funktions-Register, die Zei- 
chensatzadresse,' Hintergrundfarbe, 
Zeichenfarbe und Rahmenfarbe. 
Zur Sicherung wird der Inhalt von 
$FF06 zusätzlich in das X-Register 
geladen. 


LDA $FF06 
TAX 


Wir verändern die Bit null bis zwei, 
die angeben, um wieviel Pixel der 
Bildschirm vertikal verschoben wer- 
den soll. 


ORA #$07 
STA $FF06 
AND #$F8 
STA $FF06 
STX $FF06 


Beim Verschieben des Bildschirmes 
treten am oberen und unteren Rand 
unerwünschte Effekte auf. Bit drei, 


das den Bildschirm auf 24 Zeilen um- 


schaltet, schafft vielleicht Abhilfe. 


TXA 
AND #$F7 
STA $FF06 


Nicht wie erwartet, verschwindet 
die letzte Zeile, sondern sowohl ein 
Teil der ersten und der letzten. Die- 
ses müßte sich jedoch durch Bild- 
schirmverschieben wohl wieder aus- 
gleichen lassen. 


ORA #$07 
STA $FF06 
AND #$F8 
STA $FF06 


Bei 24 Zeilen ist es möglich, den 
Bildschirm pixelweise ohne störende 
Nebeneffekte zu verschieben, bis 
schließlich die Breite einer ganzen 
Zeile erreicht wird. So können 
Smooth-Scrolling-Effekte program- 
miert werden. Wir stellen wieder den 
Anfangszustand her: 


STX $FF06 
TXA 


Erschrecken Sie bitte beim nächsten 
Bit nicht, wenn plötzlich auf dem 
Bildschirm nichts mehr zu sehen 
sein sollte. Die Tastatur nimmt wei- 
ter Ihre Eingaben an. 


EOR #810 
STA $FFO06 
STX $FF06 
TXA 


Sollen Programme etwas schneller 
laufen, oder Routinen völlig gleich- 
mäßig ausgeführt werden, so ist es 
zweckmäßig, den Bildschirm auszu- 
schalten. Die CPU wird so nicht 
mehr durch den TED-Chip gestoppt, 
damit dieser in der Zwischenzeit den 
Bildschirm aufbauen kann. Dies ist 
besonders für Signale wichtig, die 
nicht durch eine extra Clock-Lei- 
tung getaktet werden, sondern bei 
denen es einzig und allein auf die 
Impulsdauer ankommt. Bei der Da- 
tenübertragung zur oder von Data- 


Multi-Funktions-Register I 
($FF06) 


Bit 0-2: Vertikale Verschie- 
bung des Bildschirms 


Umschaltung auf 24 
Zeilen 


Bildschirm aus/ein 
Grafikmodus aus/ein 
Grafikzeichen werden 
als reverse Buchstaben 
wiedergegeben 
Funktion unbekannt 


Bit 3: 


Bit 4: 
Bit 5: 
Bit 6: 


Multi-Funktions-Register II 
($FF07) 


Bit 0-2: Horizontale Bildschirm- 
verschiebung 
Umschaltung auf 38 
Spalten. 

Schaltet unerwünsch- 
te Effekte beim 
Smooth-Scrolling aus. 
Multicolor enable 
Funktion unbekannt 

: PAL/NTSC-Norm 
Invert off. Anstelle 
inverser Zeichen kön- 
nen Zeichen aus dem 
zweiten Zeichensatz 
mit dargestellt wer- 
den. Damit lassen sich 
Bee der Groß/ 

rafik- der 
Klein/Groß-Zeichen- 
satz darstellen. 


Multi-Funktions-Register Ill 
($FF11) 


Lautstärke (0-8) 
Tongenerator 1 
ein/aus 
Tongenerator 2 


Bit 3: 


Bit 5: 


ein/aus 

Bit 6: Tongenerator 2 
Rauschen 

Bit 7: Tongenerator 
ein/aus 


sette haben Sie diesen Effekt sicher- 
lich schon beobachtet. 

Einen Bildschirm, der nicht sehr viel 
herzeigt, bekommen Sie auch mit 


EOR #820 
STA $FF06 
STX $FF06 
TXA 
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Multi-Funktions-Register IV _ 
($FF12) 


ı Bit 0/1: Tonhöhe Tongenera- 
| tor 1, Bit (8/9 

| Bit 2: Zeichensatz in 

| RAM/ROM 

ı Bit 3-7:  Basisadresse der 
hochauflösenden 


Grafik 


Von Grafik ist leider keine Spur zu 
sehen, auch wenn vorher einmal der 
Grafikbildschirm aktiviert war, zeigt 
sich noch nichts von einer Grafik. 
Diese Bit-Umstellung hat nur eine 
Wirkung, wenn Sie zu ganz bestimm- 
ten Zeiten mit einer Vielzahl anderer 
Parameter zusammen erfolgt. Die 
Interruptroutine, die auch für die 
Bildschirmausgabe verantwortlich ist, 
macht beim Bearbeiten der Grafik 
von diesem Bit Gebrauch. 

Fraglich ist, ob das nächste Bit uns 
sehr viel Nutzen bringen kann. 


EOR #$40 
STA $FF06 
STX $FF06 
TXA 


Für irgendwelche schleierhaften 
Testzwecke soll angeblich Bit sieben 
dienen. 


EOR #$80 
STA $FF06 
STX $FF06 
TXA 


Mit den Bit-Manipulationen dürften 
Sie nun schon ein wenig vertraut 
sein. So wird es wohl reichen, wenn 
wir ein paar weitere TED-Register 
ohne zusätzliche Experimentieran- 
weisungen vorstellen. 


Zeichensatzadresse ($FF13) 


Die Bit zwei bis sieben enthalten die 
Adreß-Bit 10 bis 15 der Zeichenge- 
neratoradresse. Wir starten einen 
Versuch. 


LDX $FF13 


Nun schalten wir mit Commodore- 
"Taste und Shift den Zeichensatz 
um. 


LDY $FF13 


Der Wert der Zeichensatzadresse hat 
sich offensichtlich verändert. Wir 
schalten wieder um. Durch das Spei- 
chern der Werte in den Indexregi- 
stern ist auch ein Umschalten zwi- 


schen Groß- und Kleinschrift mög- 
lich. 


STY $FF13 
STX $FF13 


Zeichenfarbe ($FF16) 


Manipulationen dieses Registers 
bleiben ohne Wirkung. Die Zeichen- 
farbe bestimmt schließlich der im 
Farb-RAM abgelegte Code. Welcher 
Code abgelegt wird, bestimmt die 
Speicherstelle $053B. Wir laden die- 
sen Wert. 


LDA $053B 
TAX 


Bit null bis drei, die vier rechten Bit 
zeigen eine Null als Kennung für die 
Farbe schwarz. Bit vier bis sechs ge- 
ben die Helligkeit an. Schwarz ist 
schwarz, deshalb ist die Helligkeit 
uninteressant. Die Frage ist, ob Bit 
sieben auch noch eine Funktion 
besitzt. 


ORA #$80 
STA $053B 
STX $053B 
TXA 


Bit acht ist das sogenannte Blinkflag. 
Die neu ausgegebenen Registerwer- 
te und unsere Eingabe blinkten fröh- 
lich vor sich hin. Wenn Sie gerne 
Farb- und Helligkeitsänderungen 
vornehmen wollen, so dürfen Sie die- 
ses gerne tun. 


Rahmenfarbe ($FF19) 


Mit diesem Register kann die Rah- 
menfarbe geändert werden. Dieses 
geht genauso wie bei der Zeichenfar- 
be. Bit sieben ist ohne Funktion. 

ein Blinken von Rahmen oder Hinter- 
grund gibt es nicht. 


Hintergrundfarbe ($FF15) 


Es gilt das bereits in Verbindung 
mit der Rahmenfarbe Gesagte. 


IV.SCHALTEN MIT DEM 
CPU-PORT ($0001) 


Der C16/116/Plus4 besitzt als Pro- 
zessor keine CPU 6502, sondern die 
CPU 7501. Diese CPU zeichnet sich 
durch einen speziellen Port aus, den 
der Rechner zum Ansteuern von 
Kassettenport und seriellen Port 
benützt. 


Wir sehen uns die Bit des Port-Re- 
gisters an: 


LDA $0001 
TAX 


GRUNDLAGENE 


Bit null bis drei, die vier rechten 

Bit, dienen zum Senden, Bit vier bis 
sieben, die vier linken Bit, zum Emp- 
fangen. Die Sendeleitungen laufen 
über einen Inverter... Wir sehen, daß 
Spannung auf den zu Bit null bis 
zwei dazugehörigen Leitungen liegt. 
Die zu Bit drei gehörige Leitung 

liegt auf Masse. Wir nehmen einige 
Manipulationen vor. 


ORA #$01 
STA $0001 
LDA $0001 


Der Zustand von Bit null hat sich ge- 
ändert, allerdings ist mit Bit sieben 
das Gleiche passiert. Wenn wir Bit 
eins abändern, so können wir den- 
selben Effekt auch bei Bit sechs be- 
obachten. Bit sieben scheint irgend- 
wie mit Bit null und Bit sechs mit 
Bit eins gekoppelt zu sein. Dieses 
ist auch der Fall. Mit Bit null schal- 
ten wir die DATA-Leitung, mit Bit 
eins die CLOCK-Leitung und mit 
Bit zwei die ATN-Leitung des seriel- 
len Ports. Wer einen Spannungs- 
messer besitzt, kann dieses nach- 
messen. 

Mit Bit sieben messen wir die Span- 
nung auf der DATA-Leitung und 
mit Bit sechs die Spannung an der 
CLOCK-Leitung. Die ATN-Leitung 
können wir leider nicht abfragen. 
Hat Bit eins den Wert null, so liegt 
Spannung auf der DATA-Leitung, 
was Bit sechs mit einer Eins anzeigt. 
Im umgekehrten Fall zeigt Bit sechs 
keine Spannung an. 

Wenn uns ein zweiter C16/116/ 
Plus4 zur Verfügung steht, und wir 
ein serielles Kabel besitzen, können 
wir gar Signale von einem Rechner 
auf den anderen übertragen. Wir 
müssen hierzu im empfangenden 
Rechner das Sende-Bit auf Null set- 
zen, so daß auf der entsprechenden 
Leitung fünf Volt anliegen. Wenn 
der Senderechner die Leitung des 
Sendebit auf eins setzt, fällt das 
Potential ab und der Empfangs- 
rechner registriert dieses durch das 
Empfangs-Bit. 

Serielle Übertragungen von Rech- 
ner zu Rechner sind so ohne Weite- 
res machbar. Bit eins dient nicht 
nur als Clock-Signal für den seriel- 
len Port, sondern auch zur Ansteue- 
rung der Write-Leitung des Kasset- 
tenports, was mit einem Voltme- 
ter überprüft werden kann. Der 
Kassettenport stellt uns allerdings 
nur drei Volt zur Verfügung. Le- 
gen wir eine Spannung an die Read- 
Leitung des Kassettenports an, so 
sehen wir, daß Bit vier den Zustand 
dieser Leitung anzeigt. 

Ob die Playtaste gedrückt wurde, 
oder nicht, darüber gibt uns das 


BGRUNDLAGH Eu 


Port-Register keinen Aufschluß, je- 
doch das Bit zwei in Speicherstelle 
$FD10. Ist dieses Null, so ist die 
Play-Taste gedrückt. Der Plus4 er- 
laubt uns über dieses Bit, den Kas- 
settenmotor zu steuern. Da hier ein 
1/O-Baustein vorliegt, der auch für 
den Userport gedacht ist, können 
wir dort einfach etwas hineinschrei- 
ben und so eine gedrückte Rekor- 
dertaste simulieren. 


LDA $FD10 
EOR #804 | 
STA $FD10 
LDA $0001 


Der Plus4 zeigt im Port-Register, 
daß die Motor-Leitung, die durch 
Bit drei angesteuert wird, einge- 
schaltet ist. Das Spannungsmeßge- 
rät sollte über sechs Volt anzeigen. 
Der C16/116 zeigt leider keinerlei 
Reaktion. Wir stellen beim Plus4 
das Play-Flag wieder auf den ur- 
sprünglichen Wert 


LDA $FD10 
ORA #804 

STA $FD10 
LDA $0001 


Wir versuchen, die Motorleitung auf 
Spannung zu setzen. 


EOR #808 
STA 80001 
LDA $0001 


Leider hatten wir keinen Erfolg. 
Wir schließen die Datasette an und 
drücken auf die Playtaste. 


LDA 80001 


Wie wir sehen, ist die Motorleitung 
nun angeschaltet. Wir können bei 
gedrückter Play-T'aste nun nach Be- 
lieben schalten und walten. 


EOR #$08 
STA $0001 
LDA $0001 


Der Motor ist wieder aus. 


EOR #808 
STA $0001 
LDA $0001 


Nun ist er wieder an. Für Schaltun- 
gen mit dem Kassettenport kann 
durch Verbinden der Play-Leitung 
mit Masse dafür gesorgt werden, daß 
wir auch die Motor-Leitung zum 
Schalten benutzen können. 

Eine andere Möglichkeit gewinnen 
wir guteh einen kleinen Speicherein- 
griff: 


LDY #$45 
STY $0312 


Damit ist die Betriebssystemroutine, 
die für die Kassettenmotoransteue- 
rung bei gedrückter Play-Taste sorgt, 
ausgeschaltet. Auf einen Druck der 
Play-Taste allein hin rührt sich noch 
lange nichts. Der Motor wird nur 
noch durch Bit drei des Portregi- 
sters gesteuert. Auch wenn gar nichts 
angeschlossen ist, können wir dieses 
Bit jetzt nach Belieben verändern 
und die Spannung messen. Wir brin- 
gen nach unseren Versuchen unser 
Betriebssystem wieder in Ordnung. 


LDY #$42 
STY $0312 


V. DIE LOGIK DER CPU 


CPU-Operationen beeinflussen be- 


stimmte Flags des Statusregisters. 
Acht bedingte Sprungbefehle reagie- 
ren auf die Zustände von vier 
Statusflags. 


Viele sprechen von der Intelligenz 
des Computers. Alles, was eine CPU 
kann, ist jedoch nur auf ganz gewis- 
se Schalterstellungen hin zu verzwei- 
gen. Damit diese Verzweigungen 
richtig stattfinden, ist die Intelligenz 
des Programmierers gefordert. Die 
Verzweigungsbefehle sind: 


BE 

BN 

BPL 
BMI 
BCS 
BCC 
BVS 
BVC 


Diese Befehle können Sie mit unse- 
rem CPU-Programm nicht eingeben. 
Sie sind nicht für sich, sondern nur 
in einem Programm brauchbar. Wir 


können uns jedoch mit den Schaltern 


befassen. Ein Register wurde bisher 
noch kaum besprochen, das Status- 
register. Es ist sozusagen das Auge 
des Computers. Nur auf das, was das 
Statusregister anzeigt, kann die CPU 
mit Verzweigungen reagieren. Set- 
und Clear-Befehle erlauben uns die 
gezielte Einflußnahme auf einzelne 
Statusflags. 


SEC 
CLC 


Das Carry-Flag ist das einzige Flag, 
das wir mit Set und Clear sowohl 
an- und ausschalten können und 
auf welches außerdem noch Ver- 
zweigungsbefehle reagieren, die Be- 
fehle BCS und BCC. Daher wird 


dieses Flag oft gesetzt, um den er- 
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folgreichen Ablauf einer Operation 
zu signalisieren. 

Zurückgekehrt aus einem Unterpro- 
gramm, das zum Beispiel Daten auf 
ein externes Gerät ausgeben sollte, 
läßt sich mit dem Branch-Befehl auf 
das Carry-Flag reagieren, fürden _ 
Fall, daß die Ausgabe nicht geklappt 
hätte, da vielleicht der Drucker gar 
nicht angeschaltet war. 


SEI 
CLI 


Mit diesen Befehlen können wir das 
Interrupt-Flag setzen und löschen, 
Wie wir wissen, kommt es zu Zwek- 
ken der Bildschirmausgabe und der 
Tastaturabfrage immer wieder zu 
Unterbrechungen des laufenden 
Programms. Dies kann aus irgend- 
welchen Gründen unerwünscht sein. 
Ist gar die RAM-Bank eingeschaltet 
und der Prozessor bearbeitet hierin 
ein Programm, so würde der Inter- 
rupt einen Absturz bewirken, wird 
doch durch diesen wieder die ROM- 
Bank aktiviert. Anstelle des Rück- 
sprungs in die unterbrochene Rou- 
tine, landet der Programmzähler 
dann irgendwo im Betriebssystem 
oder im BASIC-Interpreter, so daß 
dann nur mehr der Himmel weiß, 
was anschließend stattfindet. 


SED 
CLD 


Damit eingegebene Zahlen nicht 
mühsam erst in Hex-Zahlen umge- 
rechnet werden müssen, wenn wir 
Rechenoperationen vornehmen wol- 
len, können wir dem Rechner durch 
Setzen des Dezimal-Flags mitteilen, 
daß er seine Additionen und Sub- 
traktionen nun im sogenannten 
BCD-System vornehmen soll. 


CLV 


Bei Rechenoperationen mit vorzei- 
chenbehafteten Zahlen ist das Über- 
lauf-Flag von Interesse. Es sollte da- 
her auch wieder zurückgesetzt wer- 
den können. 


Zusammenfassung der Set- und 
Clear-Befehle 


En FE GRUNDLAGENE 


Das Zero-Flag 


Wissen Sie, warum viele Program- 
mierer das Ende eines Datensatzes 
mit einer Null kennzeichnen? 
Laden Sie den Akku oder irgend ein 
anderes Register mit einer von Null 
verschiedenen Zahl, dann mit der 
Zahl null. Beim Beobachten des 
Statusregisters bemerken wir eine 
Veränderung von Bit eins, des zwei- 
ten Bit von rechts. Ist der geladene 
Wert Null, so zeigt das Zero-Flag 
eine Eins, im anderen Falle eine 
Null. Mit den Branchbefehlen BEQ 
und BNE kann daraufhin entspre- 
chend verzweigt werden. Branch 
Equal ist gleichbedeutend mit 
Branch Zero und heißt soviel wie: 
„Verzweige, wenn Zero-Flag 

gleich eins“. 

Branch Not Equal verzweigt im um- 
gekehrten Falle. 


Das Vorzeichenflag 


Datensätze in Standard-ASCI, wo- 
bei nur Werte bis #$7F vorkommen, 
lassen sich sogar noch kürzer abspei- 
chern. Ein extra Byte für die Ende- 
markierung kann entfallen. Es 
braucht nur Bit sieben des letzten 
Zeichens auf Eins gesetzt werden. 
Das Vorzeichenflag zeigt dieses an. 


LDA #801 
LDA #881 


Bit sieben, das ganz links wiedergege- 


ben wird, ist das Vorzeichenflag. Es 
heißt so, da beim Rechnen mit ne- 
gativen Zahlen definiert wird, daß 
Zahlen von #$00 bis #$7F positiv 
seien und Zahlen von #$80 bis 
#$FF negativ. Bit sieben des Status- 
registers gibt also Bit sieben eines ge- 
ladenen oder auf Grund einer sonsti- 
gen Operation erhaltenen Wert eines 
ae oder Speicherinhaltes wie- 
er. 
Bit sieben läßt sich ganz einfach mit 
dem Vorzeichenflag abfragen. Der 
Prozessor sollte aber auch die rest- 
lichen Bit aus einem Register oder 
aus einer Speicherzelle abfragen 
können. Einen Befehl, mit dem wir 
dieses leicht bewerkstelligen kön- 
nen, kennen wir bereits. 


LDA #$01 

- AND 80001 
LDA #$02 
AND 80001 
LDA #$04 
AND $0001 
LDA #8$08 AND 80001 
AND $0001 LDA #840 
LDA #810 AND 80001 
AND $0001 LDA #880 
LDA #$20 AND 90001 


Wir setzen im Akku alle Bit auf 
Null, mit Ausnahme desjenigen, das 
wir abfragen wollen. Durch den 
AND-Befehl werden alle Bit, die 
uns nicht interessieren, zu Null. An 
der Stelle, die wir mit einer Eins 
maskiert hatten, gelangt das ge- 
wünschte Bit aus der Speicherstelle 
in den Akku. Wenn dieses Null war, 
so ist der gesamte Akku Null und 
das Zero-Flag ist gesetzt. Im ande- 
ren Falle wissen wir, daß uns eine 
Eins vorliegt. 

Der AND-Befehl ändert auch den 
Akku-Inhalt. Manchmal wäre es 
wünschenswert, wenn dieser uns er- 
halten bliebe. Außerdem kann mit 
dem AND-Befehl nur ein einziges 
Bit über das Zero-Flag abgefragt 
werden. Ein paar Möglichkeiten 
mehr bietet der Bit-Befehl. Um Bit 
sieben abzufragen, braucht nicht ex- 
tra der Wert eines Registers durch 
Hereinladen zerstört werden. Zu- 
sätzlich zu Bit sieben im Vorzeichen- 
flag wird Bit sechs im Überlauf-Flag 
erfaßt. Die restlichen Bit können 
auf dieselbe Art, wie wir es bereits 
vom AND-Befehl her kennen, abge- 
fragt werden. 

Die Besonderheit des B/IT-Befehls 
ist, daß zwar auch eine Undierung 
stattfindet, jedoch das Ergebnis nur 
im Setzen des Zero-Flags sichtbar 
wird, und so der Akkuinhalt unver- 
ändert bleibt. 

LDA #$01 

BIT $0001 

LDA #$02 

BIT $0001 

LDA #804 

BIT $0001 

LDA #$08 

BIT $0001 

LDA #$10 

BIT $0001 

LDA #$20 

BIT $0001 


Wir haben die Abfragen jetzt nur 
bis Bit fünf ausgeführt, da das Sta- 
tusregister uns sowieso immer die 
Werte von Bit sechs und sieben 
wiedergab. Da das Überlauf-Flag 
auf Eins steht, gibt uns dieses die 
Gelegenheit, den Befehl CLV auszu- 
probieren. Es funktioniert wie ge- 
wünscht. 

Wir können den Wert #$00 abfra- 
gen, wir können abfragen, ob ein 
Wert größer als #$7F ist, sogar vor 
einzelnen Bit brauchen wir nicht 
zu kapitulieren. Dennoch fehlt 
noch irgend etwas. Was tun wir 
denn, wenn Datensätze nicht mit 
einer Null abgeschlossen sind und 
auch nicht mit einem Wert größer 
als #$7F, sondern schlicht mit ei- 
nem Carriage-Return oder einem 
sonstigen Wert? 
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Wir müßten demnach vergleichen 
können, ob wir einen bestimmten 
Wert vor uns haben, oder nicht. Da- 
für gibt es den Compare-Befehl, der 
zwei Werte miteinander vergleicht. 
Vergleichen können wir die Regi- 
sterinhalte unmittelbar mit einem 
bestimmten Wert, oder aber mit 
dem Inhalt einer beliebigen Spei- 
an Die Compare-Befehle 
sind: 


CMP 
CPX 
CPY 


CMP vergleicht mit dem Akkuinhalt, 
die beiden anderen Befehle sind 
wohl nicht schwer zu erraten. 


LDA #904 
CMP #$03 


Das Zero-Flag zeigt eine Null. 


LDA #$04 
CMP #$04 


Das Zero-Flag zeigt eine Eins zum 
Zeichen, daß die beiden vergliche- 
nen Werte übereinstimmen. Einen 
Vergleich können wir uns so vorstel- 
len, daß vom Wert im Register der 
verglichene Wert subtrahiert wird, 
ohne daß der Wert im Register ver- 
ändert wird. Wie beim Bit-Befehl er- 
scheint das Resultat nur im Status- 
register. 

Die Namensgebung der Befehle BEQ 
und BNE ist auf diesen Vergleich zu- 
rückzuführen. Stimmen die beiden 
Werte überein, so ist die Differnz 
der Werte Null, das Zero-Flag somit 
gesetzt und BEQ verzweigt entspre- 
chend. Branch Equal heißt somit: 
„Verzweige, wenn Gleichheit be- 
steht.“ 

Von BASIC her kennen wir: 


IF A=B 
IF A<>B 
IF A<B 
IF A>B 


Die ersten beiden Fälle sind in Ma- 
schinensprache bereits abgehandelt. 
Die letzten beiden fehlen uns noch. 
Wir beobachten bei den folgenden 
Vergleichen einmal das Carry-Flag, 
ob hier ein Unterschied wahrnehm- 
bar ist. 


LDA #804 
CMP #803 
CMP #$05 
CMP #$04 


Ist der Registerinhalt größer oder 
gleich dem zu vergleichenden Wert, 
so wird das Carry gesetzt, im ande- 
ren Falle gelöscht. 


EGRUNDLAGE N EEE EESEEEISENE 


Mit den Branch-Befehlen BCS$, 
Branch Carry SET, und BCC, 
Branch Carry Clear, können wir 
nach Wunsch verzweigen. Beim 
CMP-Befehl wird auch noch das Vor- 
zeichenflag beeinflußt. Eine große 
Bedeutung kommt diesem Umstand 
wohl nicht zu. Wir können aber 
leicht noch einmal nachprüfen, ob 
Bit sieben in einem Register gesetzt 
ist, wenn zwischendurch auch 
schon andere Ladeoperationen er- 
folgt sein sollten. 


LDA #$90 
LDX #$01 
CMP #$00 


Wir besitzen jetzt ein fundiertes 
Wissen über die Programmlogik un- 
seres Rechners. Ob wir unser Gerät 
Rechner nennen dürfen, werden 
uns die Rechenbefehle zeigen. 


VI. DIE RECHENOPERATIONEN 


DER CPU 


Addition, Subtraktion, Rotations-, 


und Schiebe-, Ikrementier- und 
Dekrementierbefehle sind Operatio- 
nen, mit denen der Prozessor auf- 
wartet. Multiplikationen und höhe- 
re Rechenoperationen lassen sich 
mit diesen Befehlen realisieren. 


Ihr Taschenrechner wartet mit 
Grundrechenarten, Wurzeln, Poten- 
zen und vielen mathematischen 
Funktionen auf. BASIC besitzt 
ebenso eine Menge von Rechenope- 
rationen. Der Rechner muß also ei- 
ne Menge können. Mancher wird 
wohl sehr verblüfft sein, wie wenig 
die CPU tatsächlich nur kann. Sie 
wartet nicht mit vielstelligen Dezi- 
malzahlen und Exponenten, son- 
dern nur mit Byte-weiser Addition 
und Subtraktion auf. 
Multiplikation und Division sind für 
sie bereits Fremdwörter. Solche 
Wörter wie Sinus oder Cosinus ge- 
trauen wir uns gar nicht mehr in 
den Mund zu nehmen. Wenn auch 
der arithmetische Befehlssatz nicht 
sehr umfangreich ist, so läßt sich 
doch mit diesem alles programmie- 
ren, was das Herz begehrt. 


Addition und Subtraktion 


Wir haben die Wahl zwischen binä- 

rem oder BCD-System. Vor dem 

Addieren ist das Carry-Flag auf Null 

An setzen, vor das Subtrahieren auf 
ins. 


CLC 
LDA #$04 
ADC #$03 


Wie gewünscht, ist das Ergebnis im 
Akku sichtbar. Wir nehmen nun 
Zahlen, die geringfügig größer sind. 


CLC 
LDA #808 
ADC #807 


Die dezimale Darstellung zeigt den 
Wert 15, wie es sein soll. Die hexade- 
zimale Darstellung wartet mit #$0F 
auf, was zwar noch vorstellbar ist, 
jedoch für uns Zehn-Finger-Men- 
schen schon etwas unanschaulich 
wirkt. Doch es kommt noch schlim- 
mer. 


CLC 
LDA #828 
ADC #$49 


Weder die deziamel Darstellung 
noch die Hex-Darstellung zeigen an, 
daß 28 und 49 die Summe 77 erge- 
ben müßten. Wir und die CPU be- 
nützen eben zwei unterschiedliche 
Zahlensysteme. Wenn wir die Zah- 
len #$28 und #$49 in die Index-Re- 
gister laden, sehen wir, daß #$28 
eben nicht auch dezimal 28 bedeu- 
tet. Die Summe der Werte in den 
Indexregistern ergibt jedoch genau 
den Wert, den wir im Akku vorfin- 
den. Wir brauchen nur die dezimal 
dargestellten Werte miteinander 
vergleichen. Keine Sorge, wir brau- 
chen uns deshalb nicht umgewöh- 
nen, von nun an in Hex-Zahlen zu 
rechnen. 


HEX, DEZIMAL 
UND BCD 


Die Schwierigkeit ist nur, daß der 
Rechner und wir andere Zahlensy- 
steme verwenden. Der Programm- 
anwender merkt davon nichts. 

Der Programmierer hat dafür Sorge 
zu tragen, daß die dezimal eingege- 
benen Zahlen in Hex-Zahlen umge- 
wandelt werden. Die CPU kann nun 
auf ihre Weise mit diesen Zahlen 
rechnen. Das Ergebnis muß wieder 
in das Dezimalsystem zurücküber- 
setzt werden. Wenn der Rechner 
allerdings nicht einmal multiplizie- 
ren kann, so ist dieses wohl gerade 
kein leichtes Unterfangen. Glück- 
licherweise kommt uns das Status- 
register mit dem Dezimalflag einen 
Schritt entgegen, so daß wir die 
Rechenleistungen gut verfolgen 
können. 


ADC #849 
12 


Bei der Subtraktion setzen wir das 
Carry-Flag. 


SEC 
LDA #877 
SBC #849 


Das Ergebnis entspricht auch unse- 
ren Erwartungen. Wenn der Rech- 
ner nur mehr Stellen zulassen würde! 
Mit dem Carry-Flag hat es noch ei- 
ne besondere Bewandtnis. 


CLC 
LDA #860 
ADC #850 


Wir beobachten, daß das Carry-Flag 
nun gesetzt ist. Da die Summe aus 
50 und 60 größer als 99 ist, ist ein 
Übertrag entstanden, der bei weite- 
ren Additionen dazuaddiert wird. 


TAX 
LDA #$01 
ADC #802 


Eins und zwei sind plötzlich vier, da 
der Übertrag aus der vorangegange- 
nen Rechnung Berücksichtigung 
fand. 

Betrachten wir die beiden Rechnun- 
gen im Zusammenhang, so haben 
wir eigentlich die Summe aus 160 
und 250 gebildet. Akku und X-Regi- 
ster enthalten 0410. Wenn wir mehr- 
mals hintereinander die einzelnen 
Stellen einer vielstelligen Zahl unter 
Berücksichtigung der Überträge ad- 
dieren, so sind uns von der Stellen- 
zahl her keine Grenzen gesetzt. Wir 
brauchen nur einen bestimmten Spei- 
cherbereich unserer Rechnenopera- 
tion vorsehen. Die jeweilige Summe 
aus den beiden Summanden schrei- 
ben wir wieder in den Speicher. 


BRK 

M3000 
F3000,3FFF,0 
M3000 


Nach der Adreßangabe >3000 fin- 
den wir die Hexzahlen 00 00 00. 
Diese ändern wir in eine beliebige 
sechsstellige BCD-Zahl. Mit der Zeile 
weiter unten wollen wir genauso 
verfahren. 


G 

CLC 

LDA $3002 
ADC $300A 
STA $3012 
LDA $3001 
ADC $3009 
STA $3011 
LDA $3000 
ADC $3008 


STA $3010 
BRK 
M3000 


EEE EEE GC RUNDLAGENE 


Wir können nun das Ergebnis be- 
trachten. Wenn nicht vorne bei den 
Hunderttausendern noch ein Über- 
lauf geschehen ist, sollte unser Er- 
gebnis stimmen. 

Für mehrstellige Subtraktionen dient 
ebenso wieder das Carry-Flag. 
Normalerweise müßte es in diesem 
Falle Borrow-Flag heißen. Für unse- 
re CPU gilt, daß ein gesetztes Carry 
ein gelöschtes Borrow bedeutet und 
umgekehrt. Andere CPUs können 
auch eine andere Regelung besitzen. 
Wir versuchen uns nun an der mehr- 
stelligen Subtraktion. Zahlen brau- 
chen wir keine hierzu noch einge- 
ben. Wir löschen lediglich eine Zeile 
im Monitor. 


F3000,3007,0 
M3000 


Der erste Summand aus unserer Ad- 
dition ist verschwunden. Von der 
früheren Summe ziehen wir den 
zweiten Summanden ab und sollten 
wieder die erste Zeile, wie gehabt, 
bekommen. 


G 
SEC 
LDA$83012 
SBC $300A 
STA $3002 
LDAS$3011 
SBC $3009 
STA $3001 
LDA$3010 
SBC $3008: 
STA $3000 
BRK 
M3000 

I; 


Für unsere Zwecke reicht das Rech- 
nen mit positiven Zahlen vollstän- 
dig. Die CPU kennt schließlich nur 
ositive Adressen von $0000 bis 
FFFF. Wenn einmal etwas errech- 
net werden muß, wie die Länge ei- 
nes Speicherbereiches aus der An- 
fangsadresse und der Endadresse, so 
ist maximal eine zweistellige Rech- 
nung vonnöten. Für diejenigen, die 
sich einmal vornehmen sollten, ei- 
ne Tabellenkalkulation oder ein 
Buchrechnungsprogramm in Ma- 
schinensprache zu programmieren, 
sind auch das Vorzeichenflag und 
das Überlauf-Flag von Bedeutung. 
. Wir definieren uns nun, daß Zahlen 
von #800 bis #$7F positiv sein sol- 
len und Zahlen von #$80 bis #$FF 
negativ, und schenken den Status- 
Bit sechs und sieben nun unsere 
Aufmerksamkeit. Zuerst verlassen 
wir aber erst einmal den Monitor 
und setzen das Dezimalflag zurück. 


G 
CLD 


Wir können jetzt mit dem Rechnen 
beginnen. 


CLC - 
LDA #840 
ADC #850 


Das Ergebnis #$90 ist als negative 
Zahl definiert, was das Vorzeichen- 
Flag auch angibt. Nur kann die Sum- 
me aus zwei positiven Zahlen wohl 
kaum negativ sein. Daher ist das 
Überlauf-Flag gesetzt. Es signalisiert, 
daß das Vorzeichen-Flag den Sach- 
verhalt nicht richtig wiedergibt. 


CLC 
LDA #840 
ADC #$20 


Beide Flags sind null. Die Zahl ist 
positiv. Das Vorzeichen-Flag zeigt 
es richtig an. 


CLC 
LDA #$40 
ADC #$FF 


Die Hexzahl #$FF entspricht einer 
negativen Eins. Das Ergebnis ist da- 
her positiv und richtig. 


SEC 
LDA #810 
SBC #$20 


Das Ergebnis ist negativ, das Vorzei- 
chen-Flag zeigt dieses an. 


SEC 
LDA #890 
SBC #$20 


Von einer negativen Zahl wird eine 
positive abgezogen. Das Ergebnis 
muß daher negativ sein. Daß das 
Vorzeichen-Flag den Sachverhalt 
nicht richtig wiedergibt, wird vom 
Überlauf-Flag signalisiert. 


SEC 
LDA #805 
SBC #890 


Von einer positiven Zahl wird eine 
negative subtrahiert. Das Ergebnis 
muß daher positiv sein. Das Vorzei- 
chen-Flag gibt es richtig wieder. 


SEC 
LDA #$30 
SBC #$90 


Das Ergebnis muß aus den vorher 
genannten Gründen wieder positiv 
sein. Das Überlauf-Flag widerspricht 
dem Vorzeichen-Flag. 
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CLC 
LDA #$90 
ADC #$90 


Zu einer negativen Zahl wird eine 
negative Zahl addiert. Das Ergeb- 
nis muß negativ sein. Das Überlauf- 
Flag sagt aus, daß das Vorzeichen- 
Flag nicht recht hat. 

Wir sprachen davon, daß die CPU 
nicht multiplizieren könne. Ganz 
richtig ist dieses jedoch nicht. Wir, 
die im Dezimalsystem rechnen, be- 
nötigen das Einmaleins bis zum Neu- 
nereinmaleins. Das Multiplizieren 
mit zehn geschieht durch einfaches 
Linksverschieben. Im Binärsystem, 
das nur die Zahlen null oder eins 
kennt, brauchen wir nur das Einer- 
einmaleins und das Verschieben, 
das einer Multiplikation mit zwei 
gleichkommt. Mit eins multiplizie- 
ren ist keine Kunst, da dieses sich 
von selbst erübrigt. Für das Ver- 
schieben stehen uns diverse Befehle 
zur Verfügung. 


LDA #$01 
ASL 


Der Akkumulatorinhalt wird durch 
den ASL-Befehl, Arithmetic Shift 
Left, um eins nach links geschoben. 
Wiederholen Sie den ASL-Befehl, bis 
die Eins aus dem Akku verschwindet. 
Ist dieses der Fall, erscheint ein ge- 
setztes Bit im Carry-Flag. Nach ei- 
nem weiteren Befehl ist auch dieses 
verschwunden. Sie brauchen den 
ASL-Befehl nicht jedesmal neu ein- 
zugeben. Unser Programm hat eine 
Wiederholautomatik. Wenn Sie nur 
die Return-Taste drücken, wird der 
zuletzt eingegebene Befehl immer 
wieder ausgeführt. 


LDA #$01 
ROL 


Fas das gleiche wie der ASL-Befehl 
scheint der ROL-Befehl, ROtate 
Left, zu bewirken, daß dieses jedoch 
nicht so ist, sehen wir, wenn die Eins 
aus dem Akku verschwunden und im 
Carry-Flag gelandet ist. Beim näch- 
sten ROL-Befehl geht sie von dort 
wieder in den Akku über. 


LDA #$80 
LSR 


Logical Shift Right bewirkt dasselbe 
wie ASL, nur in umgekehrter Rich- 
tung. 

LDA #$02 

ROR 

ROR 

ROR 


BGRUNDLAGEN ÜBEREIN) 


Rotate Right funktioniert genau wie 
ROL in umgekehrter Richtung. Die- 
se Befehle greifen nicht nur auf den 
Akku zu, sondern es lassen sich 
auch beliebige Speicherstellen da- 
durch verändern. Auf ASL und 

LSR könnte zur Not auch verzichtet 
werden, da durch Löschen des Car- 
ry-Flags dafür gesorgt werden kann, 
daß die Rotate-Befehle stets eine 
Null in den Akku oder die Speicher- 
stelle rotieren. 

Das Hereinnehmen des Carry-Flags 
durch die Rotate-Befehle ist äußerst 
nützlich. Denken wir hierzu nur ein- 
mal an eine Grafik-Hardcopy. Durch 
acht mal acht Bit wird das Bit-Mu- 
ster eines Zeichens bestimmt. Der 
Bildschirm hat es zu acht Reihen 
mit jeweils einem Byte, der Drucker 
jedoch braucht es in Spaltenform. 
Nachdem die Matrix aus dem Bild- 
schirmbereich herauskopiert wurde 
— schließlich wollen wir den Bild- 
schirminhalt nicht zerstören —, kön- 
nen wir mit ROL-Befehlen für den 
Drucker zurechtschneidern. Aus je- 
dem der acht Bildschirm-Byte ro- 
tieren wir je ein Bit heraus und ro- 
tieren es mit einem zweiten ROL- 
Befehlin den Akku. Nachdem der 
Akkuinhalt ausgegeben ist, holen 
wir uns nach demselben Verfahren 
die zweite Spalte heraus, bis alle 
acht Spalten ausgegeben sind. 

Zum Multiplizieren laden wir je- 
weils eine Zahl, deren Produkt nicht 
größer als 255 oder #$FF betragen 
soll, in die Indexregister. Das Pro- 
dukt soll nach der Multiplikation 

im Akku stehen, die Faktoren noch 
in den Indexregistern. 


LDX #506 
LDY #309 


Es gilt nun ein geeignetes Verfahren, 
die Multiplikation zu finden. Wir la- 
den hierzu den Akku mit Null und 
legen die beiden Werte in zwei Spei- 
cherstellen ab, so daß wir sowohl 
schieben als auch addieren können. 


LDA #800 
STX $3000 
STY $3001 


Eine Zahl können wir dadurch mit 
sechs multiplizieren, daß wir sie in 
den Akku laden. Dadurch haben wir 
sie einmal erfaßt. Indem wir sie nach 
links verschieben, haben wir sie be- 
reits mit zwei multipliziert. Wenn 
wir sie noch einmal dazuaddieren, ist 
sie schon mit drei malgenommen. 
Ein abschließendes Linksverschieben 
bringt das gewünschte Ergebnis. 

Für beliebige Zahlen, die bis zu acht 
Bit lang sein dürfen, benötigen wir 
noch ein paar weitere Befehle. Acht 


Bit sind zu untersuchen. Daher muß 
unser Rechner bis acht zählen kön- 
nen. Zum Zählen dienen Befehle, 
mit denen vorwärts und rückwärts 
gezählt werden kann. 


LDY #808 
DEY 


Bei jedem DEY wird das Y-Register 
um Eins erniedrigt, bis beim Errei- 
chen von Null das Zero-Flag diesen 
Zustand anzeigt. Beim weiteren De- 
crementieren spricht das Vorzeichen- 
Flag an. 


INY 


Mit INY kann das Y-Register hoch- 
gezählt werden. Die restlichen Befeh- 
le sollen nun nicht gleich ausprobiert 
werden, da wir den Inhalt des X-Re- 
gisters weder decrementieren noch 
incrementieren wollen, da wir diesen, 
bevor wir nicht multipliziert haben, 
gerne unverändert hätten. 

Neben den Indexregistern können 
auch Speicherstellen angesprochen 
werden. Es folgt eine Auflistung der 
Increment- und Decrement-Befehle 


INX 
DEX 
INY 
DEY 
INC 
DEC 


Wir laden also das Y-Register mit 
dem Wert #$08 und unser Algorith- 
mus kann beginnen. Da hierbei auch 
Verzweigungen stattfinden, sei er in 
einzelnen Schritten verfaßt. 


1. ASL 

ASL $3000 

Wenn Carry = 0, dann Sprung 
nach 6. 

CLC 

ADC $3001 

DEY 

Wenn Zero = 0, dann Sprung 
nach 1. 


8. LDY 53001 


2; 
3. 
4. 
5. 
6. 
7. 


Etwas mühsam ist es, solch einen Al- 
gorithmus mit der Hand durchzupro- 
bieren. Zum Programmieren fehlt 
uns fast nichts mehr, denn unser Be- 
fehlssatz ist bereits nahezu vollstän- 
dig. Uns fehlt nur noch der Befehl, 
um ein Unterprogramm anzusprin- 
gen, und der Befehl für den Rück- 


‚sprung. Der Befehl für den Rück- 


sprung heißt RTS. Wir können ihn 
in unserem CPU-Programm nicht 
aufrufen. Genauso, wie die Branch- 
Befehle verwenden wir ihn erst in 
einem richtigen Programm. 

Der JSR-Befehl, der ein Unterpro- 
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gramm anspringt, ist auch schon in 
unserem CPU-Programm verfügbar. 
Wir dürfen ihn allerdings erst ver- 
wenden, wenn wir ein anzuspringen- 
des Maschinenprogramm vor uns ha- 
ben. Besonders beachtet werden 
muß bei diesen Befehlen, daß der 
JSR, Jump SubRoutine, die Rück- 
sprungadresse auf dem Stapel ablegt. 
Nur so kann RTS, ReTurn from 
Subroutine, wieder an die richtige 
Stelle im Hauptprogramm zurück- 
kehren. Dies bedeutet, daß ein auf 
den Stapel gepushter Wert nicht 
nach einem Sprung in eine Unter- 
routine so ohne weiteres abgehoben 
werden kann. Anstatt dem gerette- 
ten Akkuinhalt würde ein Pull-Be- 
fehl ein Byte der Rücksprungadres- 
se abheben. 

Der RTS hätte als Rücksprung- 
adresse eine Kombination von be- 
retteten Akkuinhalt als High-Byte 
und High-Byte-Rücksprungadresse 
als Low-Byte vor sich und würde 
ganz schön ins Nirwana stürzen. Au- 
Ber den zwei soeben genannten Be- 
fehlen gibt es noch einen unbeding- 
ten Sprung namens JMP, nur für 
Sprünge in einem Bereich von $7F 
Adressen vorwärts und $80 Adres- 
sen rückwärts eingesetzt werden 
kann, sondern den Programmzähler 
auf jede beliebige Speicheradresse 
einstellen kann. Stapelbeeinflussun- 
gen finden hierbei nicht statt. 

Um vollständig zu sein, wollen wir 
auch einen ganz unscheinbaren Be- 
fehl nicht unerwähnt lassen. Sie 
können ihn ruhig gleich ausprobie- 
ren. Er heißt NOP, was No OPera- 
tion bedeutet. Dieser Befehl be- 
wirkt nichts. Er wird gerne als 
Platzhalter verwendet, so wie wir es 
auch im Maschinenteil unseres 
CPU-Programmes taten. An eine be- 
stimmte Stelle des Programms set- 
zen wir je nach auszuführendem Be- 
fehl entweder ein zwei oder drei 
Byte lange Befehle ein. Damit die 
CPU bei ein oder zwei Byte langen 
Befehlen nicht über den zurückge- 
bliebenen Rest der drei Byte langen 
Befehle stolpert, füllten wir die ver- 
bleibende ein oder zwei Adressen 
mit NOP-Codes auf. Wir schreiben 
jetzt unser erstes Maschinenpro- 
gramm. Da wir den Algorithmus für 
die Multiplikation bereits notiert 
hatten, fällt es uns bestimmt nicht 
schwer, diesen mit Hilfe des Moni- 
tors einzugeben. 


BRK BCC $3010 
A3002 LDA #800 CLC 
STX $3000 ADC $3001 
STY $3001 DEY 
LDY #808 BNE $300C 
ASL LDY $3001 
ASL $3000 RTS 


nr EEE CRUNDLAGENE 


Der Sprungbefehl bei Adresse $3010 
stimmt noch nicht ganz. Wir haben, 
da wir die Sprungadresse beim Nie- 
derschreiben noch nicht gekannt 
haben, einen provisorischen Wert 
eingesetzt. Da jetzt die Adresse des 
DEY-Befehles bekannt ist, ersetzen 
wir BCC $3010 durch BCC $3016. 
Den Monitorbefehl zum Betrachten 
eines Speicherbereichs im Hexfor- 
mat kennen wir bereits. Zum Be- 
trachten eines Maschinenprogramms 
wäre es sehr schön, wenn dieses sich 
auch in Assembler-Mnemonics an- 
schauen ließe. Auch dafür gibt es 
einen Monitorbefehl. Er heißt 
Disassemble und wird mit dem 
Buchstaben D, gefolgt von einer 
Adresse eingegeben. Sie dürfen ru- 
hig einmal den Bildschirm löschen. 
Danach sehen wir uns das Maschi- 
nenprogramm wieder an. 


D3002 


Ganz wird das Multiplikationspro- 
gramm durch diesen Monitorbefehl 
nicht angezeigt. Um den Rest zu 
disassemblieren, ist nur noch ein 

D ohne nachfolgende Adresse einzu- 
geben. 


D 


Disassembliert sollte das Programm 
sich nun darstellen, wie es nachfol- 
gend zu sehen ist. 


a9 00 30 
8e 00 30 
8c 01 30 
a0 08 


#600 
$3000 
$3001 
#508 


3000 
3016 


$3001 


$300c 
$3001 


Ida 
stx 
st 
Id 
as 
asl 
bcc 
elc 
ax 
e 
Dr 
Idy 
rts 


Rechts neben dem Punkt erscheint 
die jeweilige Speicheradresse. Die 
nachfolgenden ein, zwei oder drei 
Byte sind der Operationscode und 
ein oder zwei Parameter. Darauf fol- 
gen die disassemblierten Mnemonics. 
Interessant ist, daß bei der absoluten 
Adressierung dem Operationscode 
erst das Low-Byte der Speicheradres- 
se und dann erst das High-Byte folgt. 
Den Operationscodes für die beding- 
ten Sprünge folgt nicht eine absolu- 
‚te Sprungadresse, sondern nur ein 
einziges Byte, das angibt, um wie- 
viel Adressen der Programmzähler 
verstellt werden soll. Im Verzwei- 
gungsfalle landet der Programmzäh- 
ler beim BCC in Adresse $3010 


nicht bei $3012 sondern, vier Adres- 
sen weiter, bei $3016. Zahlen ab 
$80 sind negativ, wobei $ff der Dezi- 
malzahl —1 entspricht und $80 der 
Dezimalzahl —128. 

Der Sprungbefehl in Adresse S3017 
landet daher bei Adresse $300 c. 
Relative Sprünge bringen einen ent- 
scheidenden Vorteil. Die Program- 
me sind verschiebbar. Wir kopie- 

ren unser Maschinenprogramm. 


T3002,301C,3100 
D3100 


Die disassemblierten Sprungadres- 
sen sind andere, als wir ursprünglich 
erfaßt hatten. Der Disassembler 
zeigt jetzt automatisch die richti- 
gen neuen Sprungadressen an, daja 
nur die Sprungweite im Maschinen- 
programm steht. 


G 


Wir stoßen auf eine Eigenheit des 
Maschinenmonitors. Sobald wir As- 
semblierungen vorgenommen ha- 
ben, landen wir beim Fortsetzen 
mit Go nicht, wie wir es gewohnt 
sind, im CPU-Programm, sondern 
im Eingabemodus des BASIC-Inter- 
preters. Unser CPU-Programm ist 
nicht verlorengegangen, es läßt sich 
wieder starten. 


RUN 


Jetzt haben wir die Gelegenheit, den 
JSR-Befehl und unser Maschinenpro- 
gramm auszuprobieren. 


LDX #805 
LDY #$07 
JSR $3002 


Das Multiplizieren klappt ja direkt 
hervorragend. Mit dem Befehlssatz 
des Prozessors sind wir am Ende an- 
gelangt. Zu besprechen sind ledig- 
lich noch die verschiedenen Adres- 
sierungsarten. 


VII. ADRESSIERUNGSARTEN 
DER CPU 


Neben impliziter, unmittelbarer 
und absoluter Adressierung bietet 
die CPU unseres Rechners eine Viel- 
zahl weiterer Adressierungen. Drei- 
zehn sind es insgesamt. Mit indirek- 
ter und indizierter Adressierun 
können wir ganze Speicherbereiche 
durchwühlen. Eine Befehlstabelle 
gibt uns den Überblick. 


In der Beschreibung der Adressie- 


rungsarten sind auch Befehlslänge 
und Befehlsdauer angegeben. Die 
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Befehlsdauer miß sich in Taktzyk- 
len. Im Normalfall wird unsere CPU 
mit der Frequenz von einem Mega- 
hertz getaktet. Das sind eine Mil- 
lion Takte in der Sekunde. Ein Takt 
dauert so eine Millionstel Sekunde, 
anders ausgedrückt, eine Mikrose- 
kunde. Ein Befehl, der in zwei Takt- 
zyklen abgearbeitet wird, braucht 
somit zwei Mikrosekunden. 500000 
solcher Befehle könnten also in der 
Sekunde durchgeführt werden, eine 
ganz erkleckliche Anzahl. Kein Wun- 
der also, daß in Maschinensprache ge- 
schriebene Programme als ungeheu- 
er schnell gelten. 

Manche Adressierungsarten arbeiten 
schneller als andere. Manche neh- 
men weniger Programmspeicher in 
Anspruch, weil die Befehslänge 
eventuell kürzer ist. Andere Adres- 
sierungsarten fixieren uns nicht auf 
bestimmte Adressen, sondern erlau- 
ben uns, Routinen zu schreiben, die 
auf jeden beliebigen Speicherbereich 
zugreifen können. In der Befehlsta- 
belle sehen wir, welche Adressierun- 
gen für welche Operationen zur Ver- 
fügung stehen, und können so das 
für unseren Zweck geeignetste aus- 
wählen. 


A. Unmittelbare Adressierung 


Beispiel: LDY #$05 
Befehlslänge: Zwei Byte 
Taktzyklen: Zwei 


Dem Operationscode folgt unmittel- 
bar das Daten-Byte, das mit dem 
Akkumulatorinhalt verknüpft wird. 


B. Absolute Adressierung 


Beispiel: STA $3000 
Befehlslänge: Drei Byte 
Taktzyklen: Drei bis sechs 


Dem Operationscode folgt eine Zwei- 
Byte-Adresse. Hierbei wird erst das 
Low- und dann das High-Byte im 
Speicher abgelegt. Der JMP-Befehl 
benötigt drei Taktzyklen, der JSR 
sechs. Befehle, die eine Änderung 
einer Speicherzelle bewirken, benö- 
tigen sechs Taktzyklen. Die Ausnah- 
me bildet der Store-Befehl mit vier 
Taktzyklen. Lade- und sonstige Be- 
fehle, die den Inhalt einer Speicher- 
zelle mit einem CPU-Register ver- 
knüpfen, dauern ebenfalls vier Takt- 
zyklen. 


C. Zero-Page-Adressierung 


Beispiel: LDA $01 
Befehlslänge: Zwei Byte 
Taktzyklen: Drei bis fünf 


Um Adressen von $00 bis $FF anzu- 
sprechen, kann auf ein High-Adress- 
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Byte verzichtet werden. Dem Ope- 
rationscode folgt nur ein einziges 
Adress-Byte. Kürzer ist nicht nur die 
Länge des Befehls, sondern auch die 
Abarbeitungszeit. Ein Taktzyklus 
wird gespart. 


D. Akku-Adressierung 


Beispiel: ASL 
Befehlslänge: Ein Byte 
Taktzyklen: Zwei 


Da keine Werte übergeben werden 
und keine Speicherzelle zu adressie- 
ren ist, wird nur der Operationscode 
benötigt. 


E. Implizite Adressierung 
Beispiel: SEC 
Befehlslänge: Ein Byte 
Taktzyklen: Zwei bis sechs 


Die Adressierung ist bereits durch 
den Operationscode bestimmt. Da- 
ten oder Adreßparameter erübrigen 
sich daher. Befehle, die nicht auf 
den Speicher zugreifen, dauern zwei 
Taktzyklen. Push-Befehle vier, die 
Rücksprünge RTS und RTI benöti- 
gen gar sechs Zyklen. Mit RTI wird 
von einem Interrupt wieder zurück- 
gesprungen. Da ein Interrupt nicht 
nur die Rücksprungadresse, son- 
dern auch das Statusflag auf den 
Stapel rettet, wird dieses durch RTI 
wieder restauriert. 


F. Indiziert-indirekte Adressierung 


Beispiel: LDA ($D0,X) 
Befehlslänge: Zwei Byte 
Taktzyklen: Sechs 


Dem Operationscode folgt ein 
Adreß-Byte. Indirekt adressiert heißt, 
daß nicht die durch den Adreßpara- 
meter bestimmte Zelle adressiert 
wird, sondern, daß in der spezifizier- 
ten und der nachfolgenden Speicher- 
stelle sich erst die Adresse der Zelle 
findet, auf die die Operation zugreift. 
Indiziert heißt, daß zur Adreßbil- 
dung zusätzlich ein Index-Register 
einbezogen wird. Bei der indiziert- 
indirekten Adressierung der CPU 
6502 ist dieses das X-Register. 

Der Inhalt des X-Registers wird in 
unserem Beispiel zur Adresse $DO 
addiert. Wir erhalten so die Adresse 
der Speicherstelle. In dieser und der 
nachfolgenden finden wir endlich 
die Adresse unserer. Speicherstelle, 
die es anzusprechen gilt. Bei der 
Summierung der X-Register und der 
Zero-Page-Adresse bleibt ein Über- 
trag unberücksichtigt, so daß für in- 
direkte Adressierungen auch wirk- 
lich nur Speicherstellen von $00 

bis $FF in Frage kommen. 


Die meisten Zero-Page-Adressen 
sind bereits für Operationen des Be- 
triebssystems vergeben. Zur freien 
Verfügung steht dem C16/116/ 
Plus4-User der Bereich von $DO 

bis $E8, in dem er nach Belieben 
schalten und walten kann. Um die 
Sache noch etwas zu verdeutlichen, 
nehmen wir einmal an, das X-Regi- 
ster hätte den Wert #$02, in der 
Speicherstelle $D2 stünde der Wert 
#$00 und in $D3 der Wert #$30. 
Die adressierte Speicherstelle wäre 
in diesem Falle $3000. 


G. Indirekt-indizierte Adressierung 


LDA $(DO),Y 
Zwei Byte. 
Fünf bis sechs 


Beispiel: 
Befehslänge: 
Taktzyklen: 


Der Store-Befehl benötigt sechs Zyk- 
len, die anderen Befehle nur fünf. 
Diese Adressierungsart wird öfter be- 
nötigt als die indiziert-indirekte. Zur 
Adresse in den zwei Speicherstellen 
in der Zero-Page wird der Inhalt des 
Y-Registers addiert. Die Summe da- 
von ist die Adresse unserer anzuspre- 
chenden Speicherzelle. Hätte das 
Y-Register den Wert #$81, die Spei- 
cherstelle $DO den Wert #$80 und 
$D1 den Wert #$30, so würde durch 
die die Speicherstelle 
$3101 angesprochen werden. 
Überträge bei der Summierung der 
Adress-Low-Byte werden berück- 
sichtigt. Bei allen indizierten Adres- 


sierungsarten ist, wenn solche Page- 


überschreitungen auftreten, ein 
Taktzyklus hinzuzuaddieren. 


H. Zero-Page-indizierte Adressierung 


mit Indexregister X 

Beispiel: LDA $D0,X 
Befehlslänge: Zwei Byte 
Taktzyklen: Vier bis sechs 


Die Abarbeitungszeit der Befehle 
entspricht derjenigen der absoluten 
Adressierung. Zur Adresse wird der 
Inhalt des X-Registers addiert. Es 
können nur Speicherstellen von $00 
bis $FF angesprochen werden. Ein 
Übertrag bei der Addition der Adres- 
sen wird unterschlagen. 


I. Direkt indizierte Adressierung 
mit Indexregister X 


Beispiel: LDA $3000,X 
Befehlslänge: Drei Byte 
Taktzyklen: Vier bis sieben 


Der STA-Befehl benötigt fünf Takt- 
zyklen, sonstige Befehle, die den In- 
halt einer Speicherstelle verändern, 

gar sieben. Alle übrigen Operationen 
geben sich mit vier 
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yklen zufrieden. 


Wie bei der direkten Adressierung 
besteht die Basisadresse aus zwei 
Byte. 

Anders als bei der Zero-Page-indizier- 
ten Adressierung wird bei der Bil- 
dung der Operandenadresse ein aus 
der Summierung der Low-Byte resul- 
tierender Übertrag berücksichtigt. 
Hätte X den Wert #$81,so würde 
mit LDA $3080,X die Speicherstelle 
$3101 angesprochen. 


J. Direkt indizierte Adressierung 
mit Indexregister Y j 


Beispiel: LDA $3000,Y 
Befehlslänge: Drei Byte 
Taktzyklen: Vier bis fünf 


Zur Basisadresse wird das Y-Regi- 
ster addiert. Der STA-Befehl braucht 
fünf Taktzyklen, die anderen Befeh- 
le nur vier. 


K. Relative Adressierung 


Beispiel: BCC $3016 
Befehlslänge: Zwei Byte 
Taktzyklen: Zweibis drei 


Dem Operanden folgt ein Byte, das 
die Sprungweite signalisiert. Zahlen 
von #$80 bis #$FF gelten als nega- 
tiv. Sprünge können so nur in einem 
Bereich von Null bis 127 Adressen 
nach vorne und —1 bis 128 Adressen 
nach rückwärts erfolgen. Ist die Ver- 
zweigungsbedingung nicht erfüllt, so 
benötigt der Befehl zwei Taktzyk- 
len, im Verzweigungsfalle drei. Bei 
Page-Überschreitung ist ein weiterer 
Taktzyklus hinzuzuaddieren. 


L. Indirekte Adressierung 


Beuel: MP ($0324) 
Befehlslänge: Drei Byte 
Taktzyklen: Fünf 


Eine indirekte Adressierung, die 
nicht auf Zero-Page-Adressen be- 
schränkt ist, kennt nur der JMP-Be- 
fehl. In unserem Falle erfolgt der 
Sprung nach der Adresse, die in den 
Speicherstellen $0324 und $0325 
vermerkt ist. Einige wichtige Be- 
triebssystemroutinen unserer Com- 
modore-Rechner werden indirekt 
über sogenannten Sprungvektoren 
aufgerufen, die im RAM lokalisiert 
sind. Durch das Ersetzen der Adres- 
se in den Speicherstellen $0324 
und $0325, ist es ein Leichtes, eine 
neue Ausgaberoutine zu schreiben, 
die zum Beispiel für einen Epson- 
Drucker den Commodore-ASCII 
in Standard-ASCII umwandelt. Die 
Adresse eines direkten Sprunges im 
ROM hätten wir nicht manipulie- 
ren können, da aus dem ROM ja 
Peranniheh nur gelesen werden 
ann. 
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M. Zero-Page-indizierte Adressierung 
mit Indexregister Y 


Beispiel: LDX $D0,Y 
Befehlslänge: Zwei Byte 
Taktzyklen: Vier 


Indexregister ist Y. Ansonsten gilt 
das bereits über diese Adressierungs- 
art mit Indexregister X Gesagte. 

Die Übersichtstabelle gibt Auskunft, 
- welche Adressierungsarten für welche 
Operationen bereitstehen. Sollte der 
Assembler einmal einen Befehl nicht 
annehmen wollen, wie LDA $D0,Y, 
so belehrt uns die Tabelle sogleich, 
daß es eine Zero-Page-indizierte 
Adressierung mit Y-Register nur für 
LDX und STX gibt. Ein paar Spal- 
ten weiter links sagt sie uns, daß 

die direkt indizierte Adressierung 


Euer z 


x R 


Er 


x 


* 


* 
n) 


[LEE TEETEETESTEE TEE TESTEETEETEETEETEETEET ET TBETBEBETBET BE TBETBETBETBETBETETHITHETBETBE BETEN) 


x 


LLBETEETEETESTEETEITEETEETETEETEETEETEOTBETEE BET BE TGETBETBETBETHETBETHETBETBETHETBETBETBETBETBET 


LEE TE TEE TEE TEE TEE TEETEETEETEETEETErTEETEETEETEETEETEE TEST TEETEETEETBETEETBETBETBETBETBETHETBETBETBETBETBETHELBETHET HET BETHETBETBETE BETEN 
.." 


jedoch möglich ist, und wir mit 
LDA $00D0,Y zum Ziel kommen. 


Beeinflussung der Stätusflags 


Zur Erstellung der Programmlogik 
ist es notwendig, zu wissen, welcher 
Befehl welches Statusflag beeinflußt. 
In der rechten Spalte unserer Über- 
sichtstabelle findet sich diese Infor- 
mation. Auf die Darstellung von 

Bit vier und fünf des Statusregisters 
haben wir verzichtet, da Bit fünf kei- 
ne Funktion hat und Bit vier, das 
Break-Bit, nur bei einem einzigen 
Befehl gesetzt wird, dem BRK- 
Befehl. 

Dieses Flag wird im Betriebssystem 
unseres Rechners nur ein einziges 
Mal beim Interrupt abgefragt. Ist 
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dieses Bit dort gesetzt, wird über 
den Sprungvektor $032C der Ma- 
schinenmonitor aufgerufen. Wol- 
len wir den Sprung in den Monitor 
durch eine andere Routine ersetzen, 
so genügt eine Umstellung des Break- 
Vektors. Um das Break-Bit brauchen 
wir uns also nicht zu kümmern, 
wenn wir nicht selbst ein vollkom- 
men neues Betriebssystem schrei- 
ben wolien. 

Wir ersehen aus der Tabelle, daß die 
Statusflags bei Sprüngen, ob beding- 
ten, absoluten oder Unterroutinen- 
Aufrufen, nicht beeinflußt werden. 
Ebenfalls keine Änderungen treten 
beim Schreiben von Registerinhal- 
ten in Speicherstellen auf, ob dieses 
nun mit Store-Befehlen, wie STA, 
STX, STY oder mit den Stapelbefeh- 
len PHA und PHP geschieht. 

Für den Registertransfer TSX, BRK, 
dem Sprung in den Break-Interrupt, 
und NOP, das gar nichts macht, gilt 
dasselbe. 

Die spezifischen Set- und Clear-Be- 
fehle für die einzelnen Statusflags 
ändern nur das jeweilige Bit, auf das 
sie sich beziehen. PLP und RTI stel- 
len das ehemals gerettete Statusflag 
wieder her. Die sonstigen Befehle 
beeinflussen das Vorzeichen-Bit N 
und das Zero-Flag Z. Bei Shift-, 
Rotate-Befehlen, Addition, Sub- 
traktion und Vergleichen wird zu- 
sätzlich das Carry-Flag beeinflußt. 
Addition, Subtraktion und der Bit- 
Befehl wirken sich auch auf das 
Überlauf-Flag V aus. 


VI. EIN- UND 
AUSGABEROUTINEN 


Über eine Standard-Sprungtabelle, 
das Kernel, kann jedes Ein- und 
Ausgabegerät angesprochen werden. 
Das Kernel sorgt dafür, daß Maschi- 
nenprogramme, die sonst keine 
systemspezifischen Adressen ver- 
wenden, auf jedem Acht-Bit-Com- 
modore-Rechner lauffähig sind. 


Was nutzt ein Rechner, der eine CPU 
besitzt, über ROM und RAM verfügt, 
jedoch keine Möglichkeiten bietet, 
Daten ein- oder auszugeben? Ein 
Rechner, der nicht die Möglichkeit 
bietet, mit seiner Umgebung zu 
kommunizieren, ist zu überhaupt 
nichts nütze. Wir benötigen daher 
noch diverse Ein- und Ausgabeope- 
rationen. Für die Kommunikation 
mit der Außenwelt besitzt der Rech- 
ner verschiedene I/O-Bausteine, die 
über bestimmte Adressen angespro- 
chen werden können. 

Da für das Ansprechen solcher Bau- 
steine ziemliche Kenntnisse über 
dieselben und über den Aufbau des 
bestimmten Rechners erforderlich 
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wären, haben die Systemprogram- 
mierer bereits die erforderlichen 
Routinen programmiert. 

Ein solches Betriebssystem muß vor- 
handen sein, sonst könnten wir gar 
kein Programm in den Rechner 
bringen. Nicht einmal ein einziger 
Tastendruck würde vom Rechner 
verarbeitet werden können: 

Der Teil des Betriebssystem, der 

für Ein- und Ausgaben verantwort- 
lich ist, heißt BIOS, was Basic Input 
Output System bedeutet. Das Wort 
Basic hat nichts mit der Program- 
miersprache BASIC zu tun, sondern 
sagt aus, daß es hier um einfache 
Ein- und Ausgaberoutinen geht, die 
die Grundlage für die Kommunika- 
tion mit der Peripherie bilden, und 
auf die alle komplexeren Ein- und 
Ausgaberoutinen wie beispielsweise 
der PRINT-Befehl oder der INPUT- 
Befehl zurückgreifen. 

Um auch bei unterschiedlich organi- 
sierten Rechnern dafür zu sorgen, 
daß diese in gleicher Weise zu hand- 
haben sind, wird der Aufruf dieser 
Funktionen standardisiert. Beim 
VC20, C64, C16/116/Plus4 und dem 
C128 gibt es einen Speicherbereich 
im ROM, der an genau denselben 
Stellen eine Sprungliste, das Kernel, 
für diese wichtigen Systemaufrufe 
enthält. Um ein Zeichen aus dem 
Tastaturpuffer zu lesen, brauchen 
wir deshalb nicht zu wissen, wo die- 
ser in unserem Rechner ist, und wie 
er verwaltet wird. Es existiert schließ- 
lich schon die Routine, die dies für 
uns erledigt. Wo diese Routine in un- 
serem Rechner genau liegt, braucht 
uns ebenfalls nicht zu interessieren. 
Alles, was wir wissen müssen, ist, 
daß bei Ansprung der Adresse $FFE4 
der Rechner in die gewünschte Rou- 
tine verzweigt. 


Eingaberoutinen 


Zwei fundamentale Routinen be- 
sitzt unser Rechner, mit denen wir 
Daten von einem externen Gerät 
lesen können: 


GETIN ($FFEA4) 


Mit dieser Routine können wir Da- 
ten von einem Eingabegerät einlesen. 
Die BASIC-Befehle GET und GET# 
bauen darauf auf. Wurde zuvor kein 
anderes Gerät als Eingabegerät defi- 
niert, so wird ein Zeichen aus dem 
Tastaturpuffer oder dem Funktions- 
tastenpuffer an den Akku den Wert 
#$00 zugewiesen. 


JSR $FFE4 


Im Akku sollte sich nun der Wert 
#$00 befinden. Wir geben den Be- 


fehl jetzt erneut ein. Da eine Wieder- 
holung vorliegt, brauchen wir hierzu 
nur die Return-Taste zu drücken. 
Gleich nach dem Druck dieser Taste, 
sollten wir blitzschnell noch eine an- 
dere Taste drücken. Bis das in BASIC 
verfaßte CPU-Programm in das Ma- 
schinenprogramm verzweigt, sollte 
der ASCII-Wert der gedrückten Ta-- 
ste bereits im Tastenpuffer abgelegt 
sein. Der Akkumulator zeigt im An- 
schluß diesen Wert. GETIN wartet 


nicht auf einen Tastendruck, wie die- . 


ses der BASIC-Befehl GETKEY tut. 
Da je nach erhaltenem Wert auch 
das Statusflag beeinflußt wird, kön- 
nen wir das Warten auf einen Tasten- 
druck leicht selbst programmieren. 


BRK 

A301D JSR $FFE4 
BEQ $301D 

RTS 

G 


RUN 
JSR $301D 
BASIN ($FFCF) 


Auch BASIN liest sowohl von der 
Tastatur, wie auch von sonstigen 
Eingabegeräten. Ist nicht die Tasta- 
tur das Eingabegerät, so besteht 
zwischen GETIN und BASIN kein 
Unterschied. Beim Lesen von der 
Tastatur ist der Unterschied nicht 
zu übersehen. 


JSR $FFCF 


Deutlich wird hier, daß BASIN die 
Grundlage des INPUT-Befehls bildet. 
Es erscheint ein blinkender Cursor 
und wir können soviel Zeichen ein- 
geben, wie wir gerne möchten. Erst 
beim Druck der Return-Taste wird 
die BASIN-Routine beendet und 
wir bekommen das an erster Stelle 
eingegebene Zeichen in den Akku. 
Wie bekommen wir aber nun die 
restlichen Zeichen? Da das CPU- 
Programm hierauf keine Antwort zu 
geben vermag, so sei Ihnen dieses 
jetzt verraten. Bei jedem folgenden 
Aufruf von BASIN wird das nächste 
Zeichen in den Akku geladen, bis 
schließlich das Ende der Eingabe 
erreicht ist, was der Akku uns mit 
#$0D für das Returnzeichen anzeigt. 
Eingegebene Leerstellen am Ende 
werden ignoriert. Das CPU-Pro- 
gramm stört diese Eigenheit von 
BASIN. Deshalb verfassen wir ein 
kleines Maschinenprogramm,, mit 
dem wir Eingaben nach Wahl im 
Hauptspeicher unseres Rechners po- 
sitionieren können. Wie dieses geht, 
sollten Sie nun schon wissen. Hier 
ist das disassemblierte Monitor- 
listing. 
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.3023 84d0O sty $dO 
.3025 86d1  stx $dl 
.3027 a0 00 Idy +#$00 
.3029 20 cf ff jsr S$ffck 
.302c 91 dO sta ($dO),y 
. 302e e6.dO inc $d0 
.3030 d0 02 bne $3034 
.3032 e6d1 inc $dl 
.3034 c90d cmp #$0d 
.3036 dOfl bne $3029 
.3038 a4d0O Idy $dO 
.3032 a6dl1 dx $dl 
303c 60 rts 


Um das Programm verschiebbar zu 
gestalten, benutzten wir die indirek- 
te Adressierung. Um einen größeren 
Bereich als 256 Byte ansprechen zu 
können, und nicht am Ende extra 
den Wert des Y-Registers zum In- 
halt der Speicherstelle $DO addie- 
ren zu müssen, verzichteten wir auf 
eine Indizierung, indem wir das Y- 
Register kurzerhand auf Null setz- 
ten. Schnell genug ist das Programm 
wohl schon auch so. 


. Vor dem ersten Aufruf dieses Pro- 


grammes ist dem X-Register das 
High-Byte der Speicheradresse und 
dem Y-Register das Low-Byte mit- 
zuteilen. Die Eingabe wird beim 
Aufruf ab dieser Adresse gespei- 
chert. Sowohl die Speicherzellen 
$D0O und $D1, als auch die Index- 
register weisen hinterher auf die 
den abgespeicherten Daten folgen- 
de Speicherstelle. Durch mehrmali- 
gen Aufruf dieses Maschinenpro- 
grammes können so kontinuierlich 
weitere Abspeicherungen vorgenom- 
men werden. Sollten bei zwischen- 
durch erfolgenden Operationen die 
Indexregisterinhalte verlorenge- 
hen, so braucht die Eingabe das 
nächste Mal anstatt mit JSR $3023 
nur mit JSR $3027 angesprungen 
zu werden. Wir probieren in unse- 
rem CPU-Programm ein paar Ein- 
gaben. i 


LDX #831 
LDY #800 
JSR $3023 


Durch Druck der Retumntaste kön- 
nen wir weitere Eingaben vorneh- 
men. 


BRK 
M3100 
G 


Im Monitor können wir uns vom 
Funktionieren der Routine überzeu- 
gen. 


Die Ausgaberoutine BSOUT 
($FFD2 


BSOUT bildet die Grundlage für al- 
le Ausgaben. Der im Akku befindli- 


ERREIEEE rEAGRUNDLAGENZE 


che Wert wird an das Ausgabegerät 
gesandt. 

Sofern nichts anderes definiert wur- 
de, ist dieses der Bildschirm. 


LDA #841 
JSR $FFD2 


Auf dem Bildschirm sollte der Buch- 
stabe A erscheinen. Bei einem län- 
geren auszugebenden Text ist jedes- 
mal ein Zeichen in den Akku zu la- 
den und es dann mit BSOUT auszu- 
geben, ist die schnellste, aber na- 
türlich nicht die richtige Methode. 
Genauso, wie bei der Eingabe, ver- 
fassen wir daher eine Routine, die 
Daten ausgibt, welche in irgendei- 
nem Speicherbereich liegen. 


. 303d 84 d2 sty $d2 

. 303f 86. d3 stx 8d3 

. 3041 a0 00 ldy #$00 
.3043 bld2 Ida Se ‚y 
.3045 20.d2 ff jsr ffd 

. 3048 e6d2 inc $d2 
.304a dO0 02 bne $304e 
.304c e6.d3 inc $d3 
.304e c90d cmp #$0d 
. 3050 dO fl bne 83043 
. 3052 a6. d3 ldx 8d3 
.3054 a4d2 ldy $d2 

. 3056 60 rts 


Oft erfolgen Ein- und Ausgaben ab- 
wechselnd. Damit keine gegenseiti- 
ge Verstellung der Zeiger auftritt. 
Haben wir die Adressen $d2 und 
$d3 als Ausgabezeiger verwendet. 
Soll beim erweiterten C16 oder 
Plus4 auch der gebankte RAM-Spei- 
cher ab Adresse $8000 angesprochen 
werden, so wäre die Routine etwas 
zu verändern. Dieses Thema werden 
wir aber erst später behandeln. Nun 
wollen wir die vorher eingegebenen 
Daten auf den Bildschirm ausgeben. 


LDX #831 
LDY #$00 
SR $303C 
SR $303C 
SR $303C 


Ansteuerung externer Geräte 


OPEN, CLOSE, und CMD gibt es 
auch für Maschinensprache. Zur Pa- 
rameterübergabe an den OPEN-Be- 
fehl bedarf es aber erst einiger vor- 
 bereitetender Routinen. " 


SETLFS ($FFBA) 


Mit SETLFS werden die iogische 


Dateinummer, die Geräte- und die 
Sekundäradresse erfaßt. Wir laden 
die Dateinummer in den Akku, die 
Geräteadresse in das X-Register und 
die Sekundäradresse in das Y-Regi- 
ster. 


Beispiel: OPEN1,4,7 


LDA #801 


LDX #$04 
LDY #$07 
JSR $FFBA 


Soll keine Sekundäradresse angege- 
ben werden, so ist Y mit #$FF zu 
laden. 


SETNAM ($FFBD) 


Um bei Kassetten- oder Disketten- 
operation auch einen Dateinamen 
angeben zu können, existiert die 
SETNAM-Routine. Hierbei wird dem 
Akku die Länge des Dateinamens, 
dem X-Register das Low-Byte der 
Adresse, wo der Dateiname sich be- 
findet, und dem Y-Register das 
Adreß-High-Byte mitgeteilt. Beim 
Drucker ist kein Dateiname erfor- 
derlich. In diesem Falle geben wir 
die Länge des Dateinamens mit Null 
an. Um die Adresse brauchen wir 
uns dann nicht mehr zu kümmern. 


LDA #800 
JSR $FFBD 


OPEN ($FFCO) 


Nachdem die Parameter durch 
SETLFS und SETNAM festgelegt 
sind, können diese durch OPEN in 
der File-Tabelle des Rechners ver- 
merkt werden. 


JSR $FFCO 


Bei Floppy oder Datasette werden 
diese Geräte zusätzlich angesteuert, 
um entweder den entsprechenden 
File zu suchen oder anzulegen. 


CHKOUT ($FFC9) 


Dieser Befehl entspricht dem CMD- 
Befehl, der uns bereits vom BASIC 
her bekannt ist. Nachdem ein ent- 
sprechender File mit OPEN eröff- 
net wurde, können wir das Ausgabe- 
gerät umdefinieren. Hierzu ist das 
X-Register mit der Kanalnummer 

zu laden und CHKOUT aufzurufen. 


LDX #$01 
JSR $FFC9 


Daten, die jetzt mit BSOUT ausge- 
geben werden, erscheinen nun nicht 
mehr auf dem Bildschirm. Späte- 
stens beim ersten Zeichen nach ei- 
nem Return mit Code #$0D sollte 
der Drucker mit dem Druck be- 
ginnen. 


LDA #$41 LDA #$42 
SR $FFD2 SR $FFD2 
DA #$0D DA =$0D 

JSR $FFD2 JSR $FFD2 
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Der Buchstabe A wird jetzt in jedem 
Fall auf dem Drucker ausgegeben. 
Wenn der Buchstabe B noch nicht er- 
scheint, so tut er dies bestimmt, 
wenn der Druckerkanal wieder ge- 
schlossen wird. 


CLRCHN ($FFCC) 


Um wieder die Tastatur als Eingabe- 
gerät und den Bildschirm als Ausga- 
begerät zu definieren, ist keine Pa- 
rameterübergabe, sondern nur der 
Aufruf von CLRCHN nötig. 


SR $FFCC 
DA #$41 
JSR $FFD2 


Das Zeichen A erscheint wieder auf 
dem Bildschirm. Mit CHKOUT kann 
jederzeit wieder auf den Drucker 
umgeschaltet werden. 


CLOSE ($FFC3) 


Wurde ein Kanal mit CLRCHN ge- 
schlossen, so können wir, sofern wir 
ihn nicht mehr benötigen sollten, 
ganz aus unserer File-Tabelle besei- 
tigen. Hierzu ist der Akkumulator 
mit der Kanalnummer zu laden. 


LDA #$01 
JSR $FFC3 


Mit CHKOUT auf den Drucker um- 
schalten zu wollen, ist jetzt zweck- 
los. Denn der Rechner kennt die 
Geräteparameter nicht mehr. Erst 
nach erneutem Anlegen mit SET- 
LFS, SETNAM und OPEN bekom- 
men wir unseren Drucker wieder in 
den Griff. Der CLOSE-Befehl ist be- 
sonders wichtig bei Kassetten- und 
Diskoperationen, damit Floppy- 
und Datasettendatei ordentlich ge- 
schlossen werden. 


CLALL ($FFE7) 


Ziemlich radikal ist diese Routine. 
Wie CLRCHN schließt sie den jewei- 
ligen Gerätekanal. Zusätzlich be- 
seitigt sie aber alle Einträge aus der 
Filetabelle. Wenn ein Gerät noch 
ordentlich mit CLOSE abgeschlos- 
sen werden sollte, gibt es Probleme, 
da die Geräteparameter und der 
Dateiname nicht mehr greifbar sind. 


CHKIN ($FFC6) 


Wie CHKOUT einen Ausgabekanal 
öffnet, so tut dieses CHKIN mit 
einem Eingabekanal. Mit GETIN 
oder BASIN können die Daten 
dann vom entsprechenden Gerät 
eingelesen werden. Das Öffnen ei- 
nes Eingabekanals hat keinen Ein- 
fluß auf den Ausgabekanal und um- 
gekehrt. Daten können so von ei- 
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nem externen Gerät eingelesen und 
mit BSOUT gleich wieder auf das 
Ausgabegerät ausgegeben werden. 
Die Parameterübergabe erfolgt bei 
CHKIN ebenfalls über das X-Regi- 


ster. 


READST ($FFB7) 


Von BASIC her ist uns die Status- 
variable bereits bekannt. Wenn 
READST aufgerufen wird, bekom- 
men wir die Statusvariable in den 
Akku. Daraus können wir ersehen, 
ob das Ende einer Datei erreicht 
ist, oder sonstige Fehler vorliegen. 


Ein- und Ausgabe-Experimente 


Wenn unsere beiden Maschinenpro- 
gramme für Ein- und Ausgabe noch 
im Speicher vorliegen,so können 
wir ein wenig experimentieren. 


Datei für Drucker anlegen 


LDA #$ 04 

TAX 

LDY #$07 
SR $FFBA 
DA #800 
SR $FFBD 
SR $FFCO 


Daten erfassen 


LDA #$31 

LDY #$00 
SR $3023 
ingabe nach Wahl 

jr $3023 
ingabe nach Wahl 
SR $3023 
ingabe nach Wahl 


Daten auf Drucker ausgeben 


LDX #$04 - 
JSR $FFC9 
LDX #831 

LDY #$00 

SR 8303D 
SR $303D 
SR $303D 
SR $FFCC 


Dateiname erfassen 


LDX #838 

LDY #800 

JSR $3023 
TESTDATEI,S,W 


Diskettendatei eröffnen 
LDA #$08 


Auf Diskette speichern 


LDX #$ 08 
SR FFC9 
DX #$31 
LDY #$00 
JSR $303D 
JSR $303D 
SR $303D 
SR $FFCC 
LDA #$08 
JSR $FFC3 


Da die Daten nun gespeichert sind, 
können wir in den Monitor gehen 
und sie löschen. 


BRK 
F3100,3FFF,O 
M3100 

G 


Wir führen diese Operation durch, 
damit niemand sagen kann, wir wür- 
den jetzt die Daten aus dem Haupt- 
speicher lesen. 


Dateiname eingeben 


LDX #$38 
LDY #$00 

SR $3023 
ESTDATE,S,R 


Diskettendatei eröffnen 


LDA #$08 
TAX 
TAY 

SR $FFBA 
DA #$0D 
LDX #$00 
LDY #838 
SR $FFBD 
SR $FFCO 


Daten einlesen und ausgeben 


LDX #$08 

SR $FFC6 

DX #831 
LDY #$00 
STX $00D3 
STY $00D2 

SR $3023 

SR $3041 

SR $3023 

SR $3041 

SR $3023 

SR $3041 

SR $FFCC 

A #$08 

SR $FFC3 

SR $FFE7 
Ein Blick in den Monitor belehrt uns 
zusätzlich, daß unsere Daten.nun 
auch wieder im Hauptspeicher vor- 
handen sind. 
BRK 
M3100 
G 
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Damit sind wir schon fast am Ende 
unserer Einführung angelangt. Das 
Speichern und Laden von Maschi- 
nenprogrammen und das Wandeln ° 
in DATA-Zeilen sollen noch kurz 
abgehandelt werden. 


Laden und Speichern von 
Mäschinenprogrammen 


Das Speichern geschieht am besten 
vom Monitor aus. Wir speichern den 
Bereich ab, in dem das Maschinenpro- 
gramm steht. Zuerst ist der Buchsta- 
be S für Save einzugeben. Diesem 
folgt zwischen Anführungszeichen 
der Filename. Durch Komma ge- 
trennt geben wir die Gerätenummer 
ein. Nach einem weiteren Komma 
folgt die Anfangsadresse und zu- 
allerletzt, ebenfalls durch Komma 
getrennt, die Endadresse. Die End- 
adresse muß um eine Speicherstelle 
höher angegeben werden. Der folgen- 

e Befehl würde so zum Beispiel den 
Bereich von $3000 bis $30FF auf 
Diskette sichern. 


S“TESTFILE‘,8,3000,3100 


Beim Laden erübrigen sich die Adreß- 
angaben. 


L“TESTFILE‘“,8 


Bei der Kassette ist anstelle einer 
Acht die Eins als Gerätenummer zu 
verwenden. 


Wandeln in DATA-Zeilen 


Für kurze Maschinenroutinen, die in 
ein BASIC-Programm eingebunden 
werden sollen, empfiehlt sich die 
Umwandlung in DATA-Zeilen. Die 
DATA werden vom BASIC-Pro- 
gramm wieder in die ursprünglichen 
Speicherstellen gePOKEd. Ein kur- 
zes Programm Datawandler besorgt 
die Umwandlung. Nach dem Start 
ist die Zeilennummer einzugeben, 
ab der die DATA abgelegt werden 
sollen. Danach will das Programm 
Anfang und Ende des umzuwandeln- 
den Speicherbereiches in hexadezi- 
maler Form wissen. Die erzeugten 
Zeilen werden nur auf dem Bild- 
schirm ausgegeben. Erst wenn Sie 
mit dem Cursor auf die zu sehen- 
den Zeilen fahren und sie mit Re- 
turn aufnehmen, stehen diese im 
Programm zur Verfügung. Mit dem 
DELETE-Befehl brauchen Sie nur 
noch die Programmzeilen des Data- 
wandlers zu löschen. AMD 


CPU-TRAINER 


18 rem cpu-trainer=============616 <de> 558 rem bildschirmaufbau 
28 rem (p) commodore welt team <ho> BER a un 
30: a EEE EEE RUnRSEERSBEREHE? 578 char,8,8,"”":scnelr 
48 rem (c) by alfons mittelmeyer <cg> 588 gosub918:y=3:gosub98B 
= = ar . Se ee 
« x=18:gosub890: x=29:gosub898 
a8 rom 016/116/pl0sA rn a ne 
Sc gen ni Se Sr ENNERRBRTEER Er 628 char,8,10,d$:x=7:y=11:gosub898 
100 pokeS5,0:pokes6, 8:clr <bm> N 
fori=-1638t01746 <ip> _n, 

128 reada:pokei,a:next Es = zn een REPBERIEERT 2 
138 data 173,214,0886,072,173,211 <fn> 
148 data 806,174,212,806,172,213 <li> 678 rem Fr RE IREAREN 
n ee Sr ge <hk> 688 ifx$="brk"then578 

DOOR ARTS DERSNAD, "EM 698 char,‚8,19,chr$(27)+"q? "+chr$( 
178 data 213,006,008,104,141,214 <if> 164) un NE RE 
“ data 086,888,216,896,173,211 <om> 788 y$=" ":x=1 

0 : 
190 data mas, mer215.6,167,000 ci | 10 syasnantzanpuuklzun] srtocse 
218 data 215,086,174,215,006,173 <ef> ge 
220 data 214,006,072,048,189,008 <fd> Zen. Sram enennbE 
238 data 001,141,211,086,888,184 <no> 738 ifa<c>2ßthany$=y$tchr$la) ix-xt! 
240 data 141,214,006,088,216,896 <oi> :got 0768 
250 data 173,214,086,024,144,215 <dm> 79 Sta thenYiß 
268 data 238,215,006,174,215,0086 <kd> 758 x=x-1:y$=left$ly$,x) 
278 data 189,008,001,141,214,086 <nn> 768 poke2834, 157:5ys56393: poke2034 
280 data 896,173,214,086,072,048 <jd> ‚a:sys56393:poke283,8:poke2034, 164 
298 data 173,215,886,141,212,086 <pb> :sys56393: goto710 
308 data 888,104,141,214,086,08688 <ni> ET 
318 data 924,896, 173,212,886, 141 <ik> 788 rem eingabe bearbeiten 
328 data 215,086,096 fun 798 rem ---------------- 777 
338 sys1647:poke1751,127 <nJj> BuB ifys$<>" "thenx$=right$( y$,x-1) 
348 rem ------------------ <ip> 818 poke2834, 13:5ys56393 
358 rem variablen <oo> 828 ifx$="brk"thenscnelr 
368 rem -------------------------- <gg> 838 poke2834,27:3ys56393:poke2834, 
378 b$=chr$( 32) :b4$=b$+b$+b$+b$ <cog> 84:5ys56393 
388 a$lB)=-"aiiiiiiiib” <cd> 848 poke2034, 147:5ys56393 
398 a$l 1) =" jERBBABBR 5” <ff> 858 gosub1188:g0t0688 
488 a$(2)="diiiiieiif" <kh> BER a er 
418 a$l 3) =" 008080 j80j” <di> 878 rem routinensammlung 
428 a$( 4) ="8808Bagiif" <eh> 2 HE DET 
438 a$(5)="BaBaR jannj” Zus 898 fori=@to6:char,x,yti,a$li):nex 
448 a$( 6) ="88B88Bdiiie” <be> t:return 
450 data 832, 176,174,189,173 <hf> 988 fori=®to2:char,B,y+ti+i,b$(i):n 
468 data 178,179,177,171,192,221  <fl> ER REREN . 
470 g$="":fori-Bto1lß:reada:g$=g$+c 918 poke2834,61:fori=1t048:sys5639 
hr$(a) :next <il> 3:next:return 
480 Forj-Bto6:fori=1to1® Sub u un 1747,7,2,1748, 18,2 
498 mid$la$l 5) ‚i,1)-mid$(g$,(lasc ata 1749,29,2,1758,7,11 
ri, 8$, ( 948 data 1751,18,11 

"AdstaRtl) 3, andiHl3 #1 1 :nant: 950 ifx$="brk”thenreturn 
nextj <pp> E = R 
580 b$(B)="binser":b$( 1)="hex” <cp> Ss en 
510 b$(2)="dezimal” <gd> 988 char,x+1,y+1,"":s=a:n=128 
ee y-re 998 fori=1t08:a$="0" 
BERNER <le> 1888 ifs>=nthens=s-n:a$="1" 
538 d$="nv--dizc”"+b4$+"stapel” <fh> 1918 un 
a er <eg> 1828 char,x+7,y+3,right$(hex$(a) ‚2 
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CPU-TRAINER 


) 
1838 
a),3) 
1848 
1858 


char,x+6,y+5,right$(" "+str$( 


nextz:return 
x=-1:fori=Itom:reada$:reada:i 


fa$=y$theni=58 


1868 
1878 


next:return 
char,8,19,"fehler"”:poke239,B: 


wait239,1:return 


1888 
1898 
1188 
1118 
1128 
1138 
1148 
1158 
1168 
1178 
1188 
1198 
858 

1298 


‚234: 


1218 
1228 
1238 
1248 
1258 
1268 


Fun SE EEE En 


data asl,18,brk,8,c1c,24 

data c1d,216,c1i,88,c1v, 184 
data dex,282,dey, 136,inx,232 
data iny,288,1sr,74,nop,234 
data rol,42,ror, 186,sec,56 
data sed,248,sei,128,tax, 178 
data tay, 168,txa, 138,tya, 152 
iflen(x$) >4then 1348 
y$=x$:restore1118:m=21:gosub1 


ifi=S1thenpoke 1644, a:poke 1645 
poke 1646,234:5ys1638:got 0958 
rem Sasse n 
rem sonderbehandlung 

ten. ee 
m=6:gosub 1858: ifi<>51then 1978 
sysa:goto958 

data pha, 1664,pla,1677,php, 17 


02,plp,1708,tsx,1721,txs, 1748 


1278 
1288 
1298 
1388 
1318 
1328 
1338 
1348 


ER Se 
rem zwei-byte-befehle 

Den m 
data adc, 185,and,41,cmp, 281 
data cpx,224,cpy, 192,eor,73 
data 1da, 169,1dx,162,1dy, 168 
data ora,9,sbc, 233 
ifleft$(right$(x$,4),2) <>" #$” 


then 1518 


1358 
1368 
8 

1378 
1388 
1398 
1488 
1418 
1428 
1438 
1440 
1459 
1468 
1478 
1488 
1498 
1588 
1518 


restore 1389: y$=left$(x$,3) 
m=11:gosub 1858: ifi<>51then 187 


x=dec(right$(x$,2)) 
poke1644,a:poke 1646, 234 
poke1645,x:5ys1638:g0t0958 
rem = men 


data adc, 189,and,45,as1,14 
data bit,44,cmp,285,dec, 286 
data eor,,77,inc,238, jsr,32 
data 1da, 173,1dx,174,1dy, 172 
data 1sr,78,ora, 13,r01,46 
data ror, 118,sbc,237,sta, 141 
data stx, 142,sty, 148,cpx,224 
data cpy, 192 
ifleft$(lright$(x$,5), 1) <>"$"t 


<ep> 


<dl> 
<mb> 


<em> 
<en> 


<ja> 
<fh> 
<bm> 
<om> 
<ab> 
<kg> 
<lif> 
<nn> 
<if> 
<pg> 
<cg> 
<pg> 


<gc> 


<mh> 
<pj?> 
<mg> 
<ib> 
<dh> 
<ei> 


<kb> 
<le> 
<l1k> 
<ii> 
<go> 
<lp> 
<kc> 
<gf> 


<on> 
<ig> 


<mc> 
<jg> 
<bk> 
<ah> 
<ea> 
<gp> 
<jc> 
<eh> 
<nc> 
<fh> 
<he> 
<in> 
<hg> 
<]1> 
<em> 
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hen 1878 

1528 restore143@:y$=1left$(x$,3) 
1538 m=22:gosub 1858: ifi<>51then 187 
2) 

1548 y$=right$(x$,4) 

1558 poke1646,dec( left$(y$,2)) 
1568 poke1645,dec(right$(y$,2)) 
1578 poke1644,a 

1588 sys1638:g0t0958 

1590 rem =====================0==== 
16808 rem 12277 bytes memory 

1618 rem 84414 bytes program 

1628 rem BB185 bytes variables 
1638 rem 88888 bytes arrays 

1648 rem 88451 bytes strings 

1658 rem 83887 bytes free (®) 

1668 rem 84896 bytes reserviert 
1678 rem ============2222=2===22==== 


DATAWANDILER 
rem datawandler==============c16 
rem (p) commodore welt team 


rem (c) by alfons mittelmeyer 
rem 

rem 

rem basic v3.5 


rem c16/116/plus4 

rem ======================2====== 
18 input”zeilennummer";zn 

11 input "anfang,ende”;x$,y$ 

12 x=dec( x$) :y=dec( y$) 

13 x$=str$(x) :y$=str$(y) 

14 x$=right$(x$,1len(x$)-1) 

15 y$=right$(ly$,len(y$)-1) 

16 gosub29:print” fori="x$"to”y$:z 
n=zn+1B 

17 gosub29:print” reada:pokei,a:ne 
xt” 

18 zn=zn+18 

19 1=intl(y-x+1) /6) +1:K=ly-x+1)-[1 
-1)#6 

28 ifk=8thenl=1-1:k=6 

21 forj=1tol:n=6:ifj=lthenn=k 

22 gosub29:print"” data "”; 

23 for i=8 to n-1:a>peek(x+i) 

24 a$=str$(a) :a$=right$(a$,1len(a$) 
-1) 

25 a$=right$( "08"+a$,3) 

26 print 3$”,";:next:printchr$( 28) 
27 x=x+6:zn=zn+1ß:next 

28 end 

29 printright$( str$( zn) ‚,len(str$(z 
n))=1); 

38 return 

31 rem =========================== 


oa SD AW MD - 


<pa> 
<1lm> 
<cd> 
<ce> 
<jj? 
<j1> 
<ni> 
<jk> 
<nd> 
<cg> 
<pf> 
<mf> 
<hc> 
<ca> 
<ng> 


<jc> 


<ac>? 
<bf> 


<dm> 
<hh> 
<ip> 
<1h> 
<kj> 


<ef> 
<cc> 
<li> 
<ec> 
<li> 


<mi> 
<mk> 
<kh> 
<mb> 
<md> 
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Mit zehn Mark 
sind Sie dabei: 
Drucken mit 

jedem Modell 


Man sollte es eigentlich kaum glauben. 
Auf dem Markt werden Interfaces für 200 bis 300 DM 
angeboten, doch mit ein bißchen Material, das nicht 
einmal 10 DM kostet, und einem kleinen Programm 
können wir uns bereits ein Centronics-Interface 
für unseren C16/116/Plus4 basteln. 


Ursprünglich wollten wir 
eigentlich die Centronics- 
Schnittstelle am Kasset- 
tenport realisieren. Wir 
dachten, daß der Kasset- 
tenport mit dem seriel- 
len Port nichts zu tun 
hätte, weil im Betriebs- 
system des C16 eine Rou- 
tine „‚Kassettenport ein- 
schalten‘ existiert. 

Bei näherem Hinsehen je- 
doch merkten wir, daß 


hier gar keine Umschal- 
tung auf den Kassetten- 
port vorlag, sondern ledig- 
lich der Bildschirm ausge- 
schaltet und ein Timer ge- 
setzt wurde. Durch Auf- 
ruf dieser Routine fand 
also keine elektrische 
Trennung von seriellem 
Port und Kassettenport 
statt. Bit Nummer eins in 
Adresse eins steuert also 
sowohl den Clock-Aus- 


gang des seriellen Ports 
und die Schreib-Leitung 
des Kassettenports. Da- 
mit würde die serielle Aus- 
gabe von Daten auf die 
Floppy 1541 also über un- 
ser geplantes Interface 
auch den Centronics-Druk- 
ker ansprechen, was wir 
nur allzugerne vermieden 
hätten. Da dieses sich lei- 
der nun sowieso nicht 
vermeiden läßt, wählten 
wir nun den seriellen 

Port für unser Interface 
aus, da wir hier nicht nur 
eine, sondern gleich drei 
Schreibleitungen zur Ver- 
fügung haben, was die 
Schaltung und vor allem 
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die Programmlogik we- 
sentlich vereinfacht. 

Der Artikel über das 
Schieberegister zeigt uns 
bereits, wie wir mit nur 
drei Ausgabeleitungen 
acht Datenleitungen und 
eine Strobeleitung an den 
Drucker realisieren kön- 
nen. Für die Busy-Lei- 
tung hätten wir nun zwei 
Lösungen, nämlich doch 
noch den Kassettenport 
zu benützen oder aber 
eine unserer drei Leitun- 
gen am seriellen Port, mit 
denen wir nicht nur Da- 
ten ausgeben, sondern 
auch Daten lesen können, 
noch zusätzlich zur Ab- 
frage des Busy-Signals 

zu verwenden. 


ABFRAGEN 
DER BUSY-LEITUNG 


Daß wir zur Erzeugung 
von acht parallelen Daten- 
bits ein Schieberegister 
mit seriellem Eingang 
und parallelem Ausgang 
benötigen, dürfte wohl 
nicht all zu schwer zu er- 
raten sein. Was noch ein 
Problem darstellt, ist, 
wie wir wohl das Busy- 
Signal auf eine Datenlei- 
tung bekommen, ohne 
daß durch dieses unsere 
auszugebenden Daten be- 
einflußt werden können. 
Der Umstand, daß das . 
Busy-Signal bei der Da- 
tenausgabe immer auf 
Low gesetzt ist, und erst 
nach dem Zurücksetzen 
des Strobe-Signals den 
Wert High anzunehmen 
pflegt, kommt uns hier- 
bei sehr gelegen. Mit ei- 
ner Diode, die den Strom 
nur in einer Richtung 
durchläßt, könnten wir 
auf billige Weise den Ein- 
fluß des Strobe-Signals 
auf unsere Daten aus- 
schalten. Die Diode al- 
lein nutzt uns aber noch 
nicht allzu viel. Sehen 
wir uns den Aufbau unse- 
res seriellen Ports etwas 
näher an, so kommen wir 
sehr schnell darauf, daß 
noch ein weiterer elek- 
tronisches Bauteil von- 
nöten ist. Die Datenlei- 
tungen des seriellen Ports 
liegen über einen Pull-Up- 
Widerstand auf High, so- 
fern durch entsprechen- 
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des Poken in Adresse eins 
die Ausgänge hochohmig 
sind. Durch Setzen der 
Bits null bis zwei auf den 
Wert eins wird dieser Zu- 
stand erreicht. Die Bits 
fünf bis sieben, mit Hilfe 
derer wir die anliegende 
Spannung lesen können, 
geben uns darüber Auf- 
schluß. Es ist hierbei zu 
bemerken, daß Bit sieben 
mit Bit null korrespon- 
diert, Bit sechs mit Bit 
eins und Bit fünf mit Bit 
zwei, wobei Bit null und 
sieben für die Daten-Lei- 
tung, Bit eins und sechs 
für die Clock-Leitung und 
Bit zwei und fünf für die 
ATN-Leitung zuständig 
sind. Die Low-Setzung 
einer Ausgabeleitung 
durch Setzen einer Eins 
in den entsprechenden 


‚EXTERNE 5-VOLT- 
SPANNUNGS- 
VERSORGUNG 


Bit oder das Anlegen von: 
Low durch eine externe 
Verbindung sorgt dafür, 
daß die Spannung, die an 
den einem Ende des ein 
Kilo-Ohm großen Wider- 
standes noch fünf Volt be- 
tragen hatte, am anderen 
Ende auf null Volt herun- 
tergezogen werden kann. 
Zum Lesen eines Signales 
ist somit der Ausgang 
hochohmig zu machen, 
und abzufragen, ob ein 
externes Signal eine An- 
derung des High-Zustan- 
des bewirke oder nicht. Da 
aber das Busy-Signal, 
durch eine Diode gesperrt, 
nur die Werte hochohmig 
oder High annehmen kann, 
und somit immer der 
Wert eins gelesen würde, 
ist mit den erwähnten 
Bausteinen das Lesen des 
Busy-Signales leider noch 
nicht möglich. Wenn das 
Busy-Signal sich allerdings 
genau umgekehrt verhiel- 
te, nämlich die Werte 

Low oder hochohmig an- 
nehmen könnte, so 
bräuchten wir nur.die 
Diode umzupolen, mit 
Sperrichtung zum Druk- 
ker und das Problem wä- 
re gelöst. Würde der Druk- 
ker nach Zurücksetzen 

des Strobe-Signales das 
Busy auf Low setzen, so 
würde der Strom nun vom 


Anschlußtabelle 
741564 Diode Inverter 


Port 
E wu 


Drucker 


Pinbelegung des seriellen Ports des Rechners: 


Über den 7418164 TTL-Baustein, Diode, Inverter zu einem 


beliebigen Centronics-Drucker. 


Joystick Port PIN 5 


<JaunHwmwao 


Centronicsbelegung 


Was Sie hierzu 
brauchen: 

Elektronische Bau- 
teile für ca. 2 DM, 


Seriell 


'Serieller Port PIN 2/3/4/5 


TTL-Baustein mit 14 Pins 


Stecker und Platine 
für ca. 5 DM, etwas 
Kabel und Geduld 

beim Löten 
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Rechner zum Drucker 
fließen, somit die Span- 
nung an unserem Eingang 
abfallen, und wir könn- 
ten diesen Zustand durch 
Abfragen des entspre- 
chenden Bits wahrneh- 
men. Ginge das Busy-Si- 
gnal im Anschluß auf 


. High zurück, so bemerk- 


ten wir auch dieses wieder 
durch unsere Abfrage. Da 
von High zu High sowie- 
so kein Strom fließt, und 
der Stromfluß von High 
nach Low durch die Dio- 
de unterbunden ist, hätte 


‘im Anschluß das Strobe- 


Signal keinen Einfluß 
mehr auf an das Schiebe- 
register angelegte Span- 
nungen. Was wir also nur 
zu tun hätten, wäre das 
Umdrehen oder Invertie- 
ren der Busy-Leitung. 
Hierzu aber gibt es auch 
ein elektronisches Bau- 
teil, nämlich den Inver- 
ter, als letztes, uns noch 
fehlendes, Glied zur Rea- 
lisierung unserer Schal- 
tung. 


ELEKTRONISCHE 
BAUTEILE 


Die elektronischen Bau- 
teile bekommen wir im 
Elektronik-Fachgeschäft. 
Falls an Ihrem Wohnort 
keines vorhanden sein soll- 
te, so erfahren Sie sicher- 
lich in einer Elektronik- 
Fachzeitschrift die Adres- 
se eines Elektronik-Ver- 
sandgeschäftes. Was Sie 
beim Kauf oder bei der 
Bestellung der Bausteine 
wissen müssen, ist deren 
Bezeichnung. Als seriel- 
les Schieberegister mit se- 
rieller Eingabe und paral- 
leler Ausgabe kommt in 
Betracht der TTL-Bau- 
stein 74LS164. Eine 
schnelle niederohmige 
Diode mit geringem 
Spannungsabfall ist die 
Germaniumdiode AA112. 
Zum Invertieren des 
Busy-Signales können wir 
einen Inverter, zum Bei- 
spiel den TTL-Baustein 
741S04 oder auch ein 
NAND-Gatter zum Bei- 
spiel den TTL-Baustein 
74LS03 verwenden. In- 
verter wie auch NAND- 
Gatter war in unserem 
Elektronik-Geschäft für 
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0,50 DM zu bekommen, 
die Diode für 0,49 DM 
und das Schieberegister 
für 1,10 DM. Für ca. 
2,10 DM haben wir also 


unsere Elektronik beiein- 
ander. Eine gelochte Pla- 
tine ohne Leiterbahnen 
ist für 0,60 DM zu haben, 
der Centronics-Stecker 


für 2,95 DM und ein sechs- gänge des Gatters, Pin eins 
poliger Diodenstecker und zwei zu legen. Der 
wird wohl auch nur 1,25 Ausgang, Pin zwei beim 
bis 1,95 DM kosten. Inverter bzw. Pin drei 
Wenn wir nun nur noch beim NAND-Gatter, 


CENTRONICS Cie 


18 rem centronics==============018 <hi> 


unsere Kabel richtig ver- 
löten, so ist unser Inter- 
face schon fertig. 

Die Zahlen in der Tabel- 
le geben die Nummern 
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kommt an das sperrende 
Ende der Diode, welches 
durch einen schwarzen 
Ring kenntlich gemacht 
ist. Das andere Ende der 


28 rem (p) commadore welt team <ho> der Anschlußpins wieder. Diode verbinden wir mit 
38 Tem =====-==2=2= = SS22ze=e=sssemesuomerme= eng> Wo die einzelnen Pins ae unserer See 
46 rom {ei by Alfons mi sitzen, können wir den gistereingänge oder mit 
Eu (al by MATTRInSyar rn nachfolgenden Bildern der Clock-Leitung des se- 
zu F entnehmen. riellen Ports, was auf das- 
rem <ah> Hierbei ist zu beachten, selbe herauskommt. Da 
78 rem c16/116/plus4 <ja> daß wir die Anschluß- nun alle Signalleitungen 
88 rem + centronicsinterface <gc> nn VETDUNGEN Sind, ISENUF 
9B rem =======2=2===2=2====2==2=2=2 2202 020202= <jg> C16-CENTRONICS ni Sr Bon 
” ı 7 
100 fori-1815t01867 <dr> DRUCKER-INTERFACF ahrleisten. Die Masse 
118 reada:pokei,a:next <ne> des Druckers, Pin 16, 
120 fori=1630t01729 <gl> buchse am Computer so und die Masse des Rech- 
138 reada:pokei ‚a:next a wiedergegeben haben, ners, Pin zwei, sind auf 
140 fori=8 2 er wie sie sich dem Auge ein gemeinsames Poten- 
ge 1810858 <kp> von außen darbietet, den tial zu bringen und mit 
158 reada:pokei,a:next:sys8iß:new <ki> Centronics-Stecker dage- den Pins sieben unserer 
160 data 201,013,208,007,072,169 <el> gen ist von hinten gese- zwei TTL-Bausteine zu 
17@ data 018,032,002,004,104,072 <le> hen, wo wir unsere Lei-_ verbinden. Die Versor- 
188 data 133,245, 165,001,162,B88 <Ik> tungen anzulöten haben. gung mit 5 Volt ist etwas 
198 data 009,003,006,245,144,082 <gn> 3 an ne ring Artaiang problematisch, denn 
’ ’ ’ » ’ en Schieberegisters liegen nicht jeder Drucker hat 
208 data 841,253,133,901,041,254 <aa> auf Pin eins und zwei. Da die gewünschte Span- 
210 data 133,001,202,208,239,089 <kp> diese Anschlüsse internan 71.2 0 
220 data 804,133,001,041,249,133 <ge> einem AND-Gatter anlie- INT I DE DOKER 
i } 2 P ? - gen, ist die vom Rechner S3_VOLT AUF PIN 18? 
230 data 001,036,081,080,252,824 <bk> kommende Leitung mit nung auch wirklich an 
248 data 174,061,081,194,896 <im> beiden Pins zugleich zu Pin 18 anliegen. Wer 
258 data 872,165,153,201,083,208 <ih> verbinden. Wir haben die Lust und Laune hat, 
260 data 889, 165, 173,281, 116,288 <ok> Clock-Leitung an Pin vier durch ein wenig Löten im 
270 data 883, 104,142,061,001,201 <ct> pe 
enleitung auserwählt, die fen, kann dieses gerne 
= en 017,208,002,024,096,170 <jh> Data-Leitung desselben tun. Anderenfalls gibt es 
ata 841,127,201,065,048,012 <kk> Ports an Pin fünf dagegen auch noch eine zweite, 
388 data 2091,091,016,0088,224,0808 <ni> als Clock-Leitung für das leicht zu realisierende 
310 data 848,005,073,832,2808, 001 <fa> Schieberegister, da an- Möglichkeit. Da die Be- 
320 data 138,174,061,001,076,247 <gg> ea Eu one auf- | mllzune nweier loysüch- 
-An- orts sowieso nur in spe- 
330 data 003,166, 174,224,004, 208 <pf> schluß des Schieberegi- ellen SDieiprogramsEn 
348 data 088, 162,093, 134, 174,162 <nd> sters ist auf Pin acht zu vorkommt, liegen zumin- 
350 data 116,134,173,876, 178,886 <ha> finden. Als Strobe-Signal dest einer davon, wenn 
360 data 166,173,224,116,208,084 <dm> für den Drucker, das am nicht alle zwei völlig 
370 data 162,080,134,173,032,012 <ha> en Krach, Wir können also 
: elf anzulegen ist, wählten ohne weiteres dort unse- 
n ei = ir a. we ee En: = wir as Al des Dan abereiien. 
’ ’ ’ ’ ’ seriellen Ports an Pin ir benötigen dazu nur 
400 data 032,093,238,076,173,006 <mi> drei. Die parallelen Aus- ein isoliertes Kupferkabel 
410 data 104,876,075,236 <ik> gänge des Schieberegisters, von der nötigen Stärke, 
428 data 169,168,141,832,003,169 <kce> Pins drei bis sechs und daß wir das abisolierte 
430 data 006, 141,033,003,169,143 <gj> Ba 10 bis 13 a m die. Fnde en in een 
ateneingänge des Cen- unserer Joystickports 
448 data 141,024,803,169,086,141 <ib> tronics-Steckers Pins zwei stecken a 
458 data 925,003,169,184, 141,826 <bp> bis neun zu legen. Das die Spannung also nicht 
468 data 893,169,006,141,027,08683 <fe> Busy-Signal des Druckers vom Drucker zu bekom- 
478 data 169,094,141,036,003,169 <mi> u a ls Nr Dun at I, Dann Bin Ei 
48 ingang des Inverters, er -Bausteine 
au la TB. BDE ne er ar? ebenfalls Pin eins geführt. nicht mit Pin 18 des Cen- 
ST a RENT <pm> Bei Verwendung des tronics-Steckers verbin- 
SEA rem programmende <cp> NAND-Gatters ist das den sondern mit Pin fünf 
Sid rem ==>===>=======2=2=2=2==2=2=2===02= caf> Busy-Signal auf beide Ein- einer Joystick-Buchse. 
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Wer eine Datasette oder 
eine Floppy 1551 benutzt, 
dürfte mit diesem Inter- 
face gut bedient sein. Für 
eine Floppy 1541 aller- 
dings, die ebenfalls am 
seriellen Port betrieben 
wird, ist diese Lösung 
kaum vertretbar, denn 
Floppy und Drucker wür- 
den sich gegenseitig ins 
Gehege kommen. Mit 

ein paar Bausteinen mehr 
könnte auch hier Abhil- 
fe geschaffen werden. 
Aber das soll nicht 

der jetzige Stoff sein. 


SOFTWARE-TREIBER 


Ausgaben über den seriel- 
len Port laufen normaler- 
weise völlig anders ab, als 
sie unser Interface benö- 
tigt. Es bleibt uns nichts 
anderes übrig, als das 
auszugebende Zeichen 
durch Verbiegen des Aus- 
gabevektors BSOUT und 
eine geeignete Routine 
abzufangen und selbst 
die Ausgabe in geeigneter 
Weise zu veranlassen. Un- 
ser Programm führt eine 
ASCII-Umwandlung 
durch, damit Groß- und 


Kleinbuchstaben richtig 
ausgegeben werden, 
macht einen zusätzlichen 
Linefeed, damit auch die- 
jenigen, die einen auto- 
matischen Linefeed am 
Drucker nicht einstellen 
können, keine Probleme 
damit haben und unter- 
drückt den ASCII-Code 
17, womit Commodore- 
Drucker auf Groß-/ 
Kleinschreibung umge- 
stellt werden, andere 
Drucker aber zu uner- 
wünschten Dingen, wie 
Einschalten irgendeines 
Grafik-Modus, veranlaßt 
würden. Wenn Sie unser 
Programm CENTRONICS- 
C16 gestartet haben, 
kann der Drucker auf 
Commodore-übliche Wei- 
se angesprochen werden. 
Commodore-spezifische 
Steuer- und Grafikzeichen 
allerdings sind von Ihnen 
durch die entsprechenden 
Drucker-spezifischen Zei- 
chen zu ersetzen. Wir 
wünschen Ihnen viel Spaß 
mit Ihrem selbstgebauten 
Interface. am.D 


Aus Zwei 
machAcht 


Mit einem Schieberegister werden aus zwei 
Datenleitungen acht. Ein Demoprogramm zeigt nicht 
nur die Funktionsweise einer solchen Datenüber- 
tragung auf, sondern ermöglicht zu Textzwecken gar 
die Ausgabe von Daten. 


Darstellung des Binär-Codes 
01000001, das dem ASCII- 
Zeichen A entspricht. 


Zehn Leitungen sind nor- 
malerweise nötig, um ei- 
ne Centronics-Schnittstel- 
le zu realisieren: nämlich 
acht Datenleitungen, die 
Strobe-Leitung, die dem 
Drucker das Bereitstehen 
von Daten signalisiert, 
und die Busy-Leitung, die 
uns die Bereitschaft zum 
Empfang weiterer Daten 
meldet. Sehen wir uns 
den seriellen Port unseres 
Rechners an, so entdek- 
ken wir nur drei Leitun- 
gen, die wir zum Senden 
und Empfangen benützen 
können. 


AUS ZWEI MACH ACHT 


Das sind wohl entschie- 
den zu wenig, könnte man 
meinen. Doch glücklicher- 
weise gibt es elektroni- 
sche Bauteile, die dieses 
Manko beseitigen können. 
Was wir benötigen, ist ein 
Baustein, den wir seriell 
Bit für Bit mit Daten be- 
schicken können und der 
diese schön parallel neben- 
einander für den Drucker 
bereithält. Also lediglich 
ein Acht-Bit-Schieberegi- 
ster mit seriellem Eingang 
und parallelem Ausgang, 
das es für eine Mark in je- 
dem gut sortierten Elek- 
tronik-Fachgeschäft zu 
kaufen geben sollte. 


Zur Ansteuerung eines 
solchen Schieberegisters 
sind nur zwei Leitungen 
erforderlich. Zum ersten 
eine Datenleitung, mit 
der wir entweder ein High- 
oder Low-Signal, je nach 
dem Zustand des zu über- 
tragenden Bit, am Daten- 
eingang des Registers anle- 
gen können. Zum zwei- 
ten eine Taktleitung, 
durch die wir mit einem 
kurzen Signal, dem soge- 
nannten Clocksignal, die 
Datenaufnahme auslösen. 
Nachdem sich nach acht 
Übertragungen die acht 
Bit des zu übertragenen 
Byte im Schieberegister 
befinden, ziehen wir kurz 
die dritte Leitung, die 
Strobe-Leitung, auf Low, 
und der Drucker hat sei- 
ne Daten. Wie wir die 
Busy-Leitung abfragen, 
soll uns im Moment noch 
nicht interessieren. Even- 
tuell können wir hierzu 
entweder die Daten- oder 


‘die Clock-Leitung her- 


nehmen. 


CENTRONICS- 
DEMOPROGRAMM 


Da eine Demonstration 

oft mehr zu zeigen vermag, 
als viele Worte auszusagen 
versuchen, haben wir für 
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Sie ein Demoprogramm 
verfaßt, welches wir jetzt 
starten wollen. 

Unten am Bildschirm ist 
der Zustand unserer Lei- 
tungen durch einen ge- 
setzten oder nichtgesetz- 
ten schwarzen Punkt sym- 
bolisiert. Die Strobe-Lei- 
tung links liegt normaler- 
weise auf High. Die 
Clock- und Daten-Leitung 
liegen noch auf Low. Mit 
den beiden letztgenann- 
ten Leitungen steuern wir 
das Schieberegister, das 
noch gänzlich leer vor 
uns liegt. 

Indem wir die Tasten 

[0] oder [1] drücken, le- 
gen wir unsere Daten an 
das Schieberegister an. 
Mit dem Druck der Leer- 
taste lösen wir das Clock- 
Signal aus, das unser Da- 
tenbit in das Schieberegi- 
ster bringt. Die nachfol- 
gende Tabelle gibt uns 
Aufschluß über die Bit- 
Codes einiger ASCH- 
Zeichen. 


0010 0011 0100 0101 


0000: 0: @ P..: 
0001: ! T © sA (o 
0010: 2 = B R 
0011: #:3:C S) 
0100: $:4: D T& 
0101: = U 
0110: & 8:3. BEE WS 
0111: 71:6: W 
1000: ( 8.87 -.8%.% 
1001: I). 902 1 Yes 
1010: : er ae u a u 
1011: + Fe [ : 
1100 E82 LE 8 
1101: -ı =: M 2 
1110: >: Niy # 
1111: / >) 


Über jeder Spalte befin- 
den sich die vier ersten zu 
übertragenden Bit, am 
Anfang jeder Zeile die vier 
restlichen Bit. Nachdem 
das einem ASCII-Zeichen 
entsprechende Bitmuster 
im Schieberegister steht, 
löst ein Druck auf die 
Return-Taste das Strobe- 
Signal aus. Dadurch wird 
das Zeichen auf den Druk- 
ker, in unserem Demopro- 
gramm hingegen in die er- 
ste Bildschirmzeile, aus- 
gegeben. 

Wenn Sie CW-EXTRA auf 
den Bildschirm zu bringen 
vermögen, so dürften Sie 
das Funktionsprinzip ei- 
ner Centronics-Schnitt- 
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stelle am C16/116 schon 
voll erfaßt haben. 


AUTOMATIK-MODUS 
Eine Möglichkeit, die un- 


ser Demoprogramm noch 
bietet, haben wir Ihnen 
bis jetzt noch verschwie- 
gen. Mit der ESC-Taste 
können Sie in den Auto- 
matik-Modus um- und 
von dort auch wieder zu- 
rückschalten. Im Auto- 
matik-Modus können wir 
hintereinander bis zu 
zehn Tasten drücken, 
denn soviel faßt der Ta- 
staturpuffer. Nach der 
Eingabe setzt der uns be- 
reits vertraute Ablauf 
programmgesteuert ein, 
und bald darauf ist der 
Buchstabe auf dem Bild- 


Als wertvolle Hilfe beim 
Bau des Interface erwies 
sich die im Centronics- 
Demoprogramm vorgese- 
hene Möglichkeit, die Da- 
ten auch wirklich am se- 
riellen Port auszugeben. 
Hierzu sind nur die ent- 
sprechenden REMs, die 
die Ausgabe normalerwei- 
se verhindern, zu besei- 
tigen. _ 

Falls wir im Besitz eines 
Centronics-Schnittstellen- 
Testers sind, können wir 
an dessen leuchtenden 
Lämpchen ablesen, ob 
das Interface auch wirk- 
lich das tut, was auf dem 
Bildschirm zu sehen ist. 
Vollführt es das Erwarte- 
te, so steht nichts mehr 
im Wege, Daten an den 
Drucker zu senden. 


schirm sichtbar. a.m. O 
CENTRONICS-DEMO 
182 rem centronics-demo ========616 <ip> 
28 rem (p) commodore welt team <ho> 
30 rem ======================5===== ong> 
48 rem by alfons mittelmeyer <nm> 
58 rem <pd> 
68 rem <ah> 
78 rem basic v3.5 <nl> 
88 rem c16/116/plus4 <ki> 
98 rem === === == ==22== 2222222222555 Cjg> 
188 scnclr:gosub638 <jf> 


118 char, 7,4,"B "+lo$+"C"+u$+"C"+u 
$+H"C"+u$+"C"+u$+"C"+u$+"C"+u$+"C”+ 


u$+"C"+u$+"C”"+ro$ 


128 char, 7,5,"B B"+10$+"C"+0$+"C"+ 
0$+"C"+0$+"C"+0$+"C"+0o$+"C”"+0$+”C" 


+0$+"C"+ro$+"B" 


130 char, 7,6,"BBBBBBBBBBRB 


B” 


148 char,7,7,"B B"+1u$+"C”"+u$+"C"”+ 
u$+"C"+u$+"C"+u$+"C"+u$+"C"+ug+"C" 
+u$+"C"+ru$+”B" 

158 char,7,8,"B "+l1u$+"CCCCCECCEECE 
CC"+o$+"C"+o$+"C"+ru$ 

168 for i=9t012:char,7,i,"B":char, 
23,i1,"B B”:next 

178 char,7,13,1u$+"CCECCECCCCCEC"+ 
ro$+" B B" 

188 for i=14t015:char,21,i1,"B B B” 
next 

198 char, 19,16,10$+"C"+u$+"C"+u$+"” 
C"+u$+"C"+ro$ 

288 char, 19, 17,"B"+10$+"C"+0$+"C"+ 
0$+"C"+ro$+"B" 

218 char, 19,18,"BBQBAB BB” 
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228 char, 19,19, "B"+1u$+"C"+u$+"C"+ 
u$+"C"+ru$+"B" 

238 char, 19,28, 1u$+"CCCCECEC"+ru$ 
248 a$=" ":fori=1t07:3$=a$+1$+" ": 
next 9 

258 c1=9:da=8:sr=-1 

268 getkeyx$ 

278 ifx$="D"thenda=B 

288 ifx$="1"thenda=-1 

298 ifx$=" "thencl=-1 

388 ifx$=chr${ 13) thensr=8 

318 ifx$=chr$( 27) thengoto588 

328 gosub338:gota268 

338 ifsrthen438 

348 char,21,18,"” ":fori=1t058®:nex 
t:char,21,18,”9” 


358 b=9@:fori=1t0o15step2:b=b+b 

368 ifmid$(a$,i,1)="Q"thenb=b+1 
378 next:sr=-1:fork=1t05@@:next 
388 char,x,y,chr$(b) :x=x+1 

398 rem -----------------------7 
488 rem strobe 

a18 rem -------------------------- 
428 rem pokeil,peek( 1Jor4:pokei,pe 


ek( 1) and251 


438 ifdathenda$="Q":elseda$=" ” 
448 rem ----------------------- 
458 rem data 

468 rem ----------------------- 
478 rem ifdathenpokel,peek( 1) and2 


S3:elsepokel,peek( i)Jor2 

488 ifnotclthen558 

498 char, 23,18," ":fori=1t058®:nex 
t:char,23,18,"Q":c1=8 

508 a$=right$(la$,13)+1$+da$ 

518 rem 
528 rem 
5380 rem 
548 rem pokel,peek( 1)ori:pokeil,pee 
k( 1) and254 


clock 


558 char, 25,18,da$ 

568 char, 11,6,a$ 

578 return 

588 getkeyz$:z=asc( z$) :ifz=27then2 
68 

598 forj=1to8:z=z+z:fork=1t0o5@B:ne 
xt 

688 da=d:ifz>=256thenda=-1:z=z-256 
618 gosub33B:c1l=-1:fork=1t0589:nex 


t:gosub33®:next:fork=1t058@:next 
628 sr=o:gosub338:goto588 

638 1$=chr$( 29) :1o$=chr$( 176) 
648 ro$=chr$( 174) :1u$=chr$( 173) 
658 ru$=chr$( 189) :0$=chr${ 178) 
668 u$=chr$( 177) :return 

678 rem 
6868 rem prog rammende 
698 rem 
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in Basic 
programmieren? 
Kein Problem! 


Immer wieder erreichen uns Leser-Zuschriften, 
die ein großes Interesse an Anwendungsprogrammen 
bekunden. Viele dieser Leser geben auch ohne 
große Umschweife zu, daß ihre BASIC-Kenntnisse 
noch nicht sehr umfangreich sind, vor allem, wenn sie 
den Computer erst vor kurzem gekauft haben. 
Wir haben uns nun gedacht, künftig diesem Teil unse- 
rer Leser ein wenig den Einstieg in meistverbreiteste 
Programmiersprache der Welt zu erleichtern. 


Anwendungsprogramme 
können sowohl professio- 
neller als auch eigen-ge- 
strickter Natur sein. 
Professionelle Programme 
können Sie kaufen und so- 
fort einsetzen. Sie kön- 
nen aber auch versuchen, 
selbst welche zu schrei- 
ben. Da aber hakt es doch 
bei manchem, das Wissen 
reicht noch nicht ganz 
aus. Programmieren ler- 
nen Sie aber nicht nur 
durch Lesen von Fachbü- 
chern und Zeitschriften, . 
sondern vor allem durch 
Übung. 


WAS SOLL DENN 
PROGRAMMIERT 
WERDEN? 


Dabei tritt anscheinend 
bei dem einem oder ande- 
ren ein Problem auf, näm- 
lich die Frage: Was soll 
ich denn programmieren? 
Die Antwort darauf ist 
eigentlich recht einfach: 
Ein Programm, das Ihr 
Anwendungsproblem löst. 
Um Ihnen aufzuzeigen, 
wie Sie ein Problem lösen 
können, werden wir eines 
darstellen und Ihnen ei- 
nen Lösungsweg bieten 
und selbstverständlich ein 
Programm hierfür bieten 
und besprechen. 

Sicher haben auch Sie 
schon einmal darüber 
nachgedacht, wie denn 
chiffrierte Nachrichten 
decodiert werden können. 
Im Zeitalter der Compu- 


ter sind für solche Arbei- 
ten zwar auch noch Spe- 
zialisten erforderlich, 
aber ein Großteil der — 
oft sehr mühseligen — Ar- 
beit kann durch Compu- 
ter in sehr kurzer Zeit er- 
ledigt werden. 

Bestimmt haben Sie auch 
schon von verschiedenen 
Methoden der Verschlüs- 
selung gehört. Möglichkei- 
ten gibt es viele. Eine viel- 
leicht bereits bekannte 
Art ist das Verschlüsse- 
lungsquadrat. 

Das bedeutet, der zu co- 
dierende Text wird bei- 
spielsweise senkrecht in 
ein Rasterfeld mit gleicher 
Spalten- und Zeilenanzahl 
eingegeben und waagrecht 
ausgelesen. 

Selbst wenn Sie aber bei 
einem Text wissen, daß 
er nach dieser Methode 
verschlüsselt wurde, ist es 
„zu Fuß‘ trotzdera noch 
schwer, die Decodierung 
durchzuführen. Da muß 
der Computer ran. 


VERSUCHEN SIE ES 
ZUERST OHNE 
PROGRAMM! 


In Zeile 130 des Listings 


sehen Sie eine ‚„verschlüs- 
selte‘‘ Mitteilung. 
Versuchen Sie doch ein- 
mal, ohne Computerunter- 
stützung herauszufinden, 
wie die Nachricht lautet. 
Wenn Sie es so schnell 
schaffen wie Ihr Commo- 
dore-Rechner mit Hilfe 


des abzutippenden Pro- 
grammes, dann sind Sie 
absolut Spitze und könn- 
ten Ihren Computer ei- 
gentlich wieder verkau- 
fen. 


VOM PROBLEM 
ZUR LÖSUNG 


Nun wissen Sie also, wor- 


um es geht und haben die 
Aufgabe, ein Programm 
zu schreiben, das diesen 
verschlüsselten Text als 
Klartext ausgibt. Bevor 
Sie nun Ihren Computer 
einschalten und versu- 
chen, wie ein Weltmeister 
zu programmieren, soll- 
ten Sie vielleicht erst ein- 
mal überlegen, wie ein 
Lösungsweg aussehen 
könnte. 

Bei einem Quadrat ha- 
ben wir es mit einer Flä- 
che zu tun, deren vier 
Seitenlängen gleich sind. 
Denken Sie zum Beispiel 
an ein Schachbrett. 

Die Buchstaben des Klar- 
textes wurden so auf die 
Felder geschrieben, daß 
der Text — links oben be- 
ginnend — nach rechts 
läuft, so wie eben norma- 
lerweise geschrieben und 
gelesen wird. Ausgegeben 
wird der Text aber derart, 
daß von oben nach unten 
gelesen werden muß, um 
ihn zu verstehen. 

Obwohl Sie den codierten 
Text kennen, wissen Sie 
nicht, welche Seitenlänge 


.dieses Verschlüsselungs- 


quadrat hat — oder doch? 
Wenn, wie in unserem 
Beispiel, eine sehr einfa- 
che Codierung erfolgt, 
kann Ihnen die Länge des 
Textes diese Information 
liefern. Bei einer quadra- 
tischen Anordnung muß 
der Text im Quadrat 


komplett enthalten sein. 
In diesem simplen Bei- 
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spiel muß die Quadrat- 
zahl der Seitenlänge 
also gleich oder größer 
der Zeichenketten(= 
String)-Länge sein. Das 
heißt, die nächstmögliche, 
ganzzahlige Wurzel aus 
der Länge der verschlüs- 
seiten Nachricht ergibt 
die Seitenlänge des 
Quadrates. 


ES GEHT NICHT OHNE 
MATHEMATIK 

Kurz zur Erinnerung und 
Auffrischung: Die Wurzel 
einer Zahl ist der Wert, 
der mit sich selbst multi- 
pliziert eine Quadratzahl 
ergibt, zum Beispiel Wur- 
zel aus 49 = 7, weil 7 mal 
7 eben wieder 49 ergibt. 
Wenn Sie nun beispiels- 
weise einen Text mit drei- 
fig Zeichen Länge haben, 
dann paßt dieser in ein 
minimales Feld mit einer 
Seitenlänge von 6, denn 
eine mit nur 5 ergäbe als 
maximale Textlänge nur 
fünfundzwanzig Zeichen 


u ı7 
& 
TR 


Damit haben wir auch 
schon den Lösungsweg 
dieses Problems gefunden. 
Wir brauchen nun nur 

— beim ersten Buchsta- 
ben beginnend — den co- 
dierten Text vertikal 
(senkrecht) in ein gezeich- 
netes Quadrat einzutra- 
gen und horizontal (waag- 
recht) zu lesen. Aber wir 
wollen diese Aufgabe ja 
nicht selbst erledigen, 
sondern ein Programm ent- 
werfen, das uns diese Ar- 
beit abnimmt. 


DIE PROGRAMM- 
STRUKTUR 


Zunächst einmal wird bei 
Programmstart der Bild- 
schirm gelöscht (PRINT 
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CHR$(147)). Damit wir 
aber auch sehen, welchen 
Zweck unser kleines Pro- 
gramm erfüllen soll, geben 
wir eine entsprechende 
Mitteilung durch den 
PRINT-Befehl aus. 
PRINT ist die einfachste 
Anweisung an den Com- 
puter, etwas auszugeben, 
im Normalfall auf dem 
Bildschirm. Wenn wir 
Text ausgegeben haben 
wollen, dann kann dies so 
geschehen, daß nach dem 
PRINT-Befehl der ge- 
wünschte Text in Anfüh- 
rungszeichen eingeschlos- 
sen steht, dann handelt 
es sich um einen Text- 
string. Hierfür ist in unse- 
rem Programm Zeile 100 
zuständig. 

Zeile 110 bewirkt die 
Ausgabe des Textes: 
„Waagrecht schreiben“ 
und in der folgenden Zei- 
le „‚Senkrecht auslesen“, 
Als nächstes wollen wir 
dem Computer mitteilen, 
welcher Text decodiert 
werden soll. Dies kann 
beispielsweise über eine 


Zuweisung oder auch 
durch den INPUT-Befehl 
erfolgen (INPUT = Gib 
etwas ein!). Der INPUT- 
Befehl in seiner einfach- 
sten Form benötigt aber 
einen Zusatz. 

Der Computer muß sich 
ja unsere Eingabe vorüber- 
gehend merken können, 
deshalb gehört zum IN- 
PUT-Befehl noch die Zu- 
weisung eines Variablen- 
Namens, unter dem Ihre 
Eingabe zwischengespei- 
chert wird. Es können so- 
wohl String- als auch rei- 
.ne Zahlen-Variablen 
sein. 

Allerdings kennt Ihr 
Computer dabei nur ein 
Entweder-Oder: Haben 
Sie String-Variablen vor- 


gesehen, so wird auch je- 
de eingegebene Zahl als 
reine Zeichenkette (wie 
etwa Buchstaben) behan- 
delt und interpretiert. 
Rechnen können Sie 
dann mit diesen Zahlen 
nicht, sondern sie nur 
wie einen Text auf dem - 
Bildschirm ausgeben. So 
ein Variablenname wird 
immer mit einem davor- 
gesetzten Semikolon 
(Strichpunkt) an die IN- 
PUT-Anweisung angehängt, 
in unserem Beispiel eben 
co$ 


Reine numerische Varia- 
blennamen werden eben- 
so angefügt, haben aber 
den Vorteil, daß die Ein- 
gabe nicht als Zeichenket- 
te, sondern als im weite- 
ren Programmverlauf als 
berechenbare Gleitkom- 
mazahl behandelt wird. 
Allerdings dürfen Sie hier 
auch nur echte Zahlen 
eingeben, also keine ande- 
ren Zeichen wie Buchsta- 
ben, Interpunktions- oder 
Grafikzeichen, auch nicht 
mit einer Zahl gemischt 
(beispielsweise Al), das 
wird Ihr Computer im- 
mer grimmig mit einer 
Fehlermeldung quittie- 


ren. 
Dann ist es für ihn näm- 
lich eine Zeichenkette, 
ein String, und Sie haben 
ihn ja angewiesen, eine 
rein numerische Variable 
zu speichern, etwa 
INPUT“ZAHL:“; Z (also 
ohne $-Dollarzeichen!). 
Verzeihen Sie uns die 
kleine Abschweifung zum 
Wesen des INPUT-Befehls, 
fahren wir in unserem 
Beispielprogramm fort. 
Die Aufforderung zur 
Eingabe erfolgt — seitens 
des Computers — durch 
Ausgabe eines Fragezei- 
chens (das mit ein paar 
Tricks auch unterdrückt 
werden kann) und des 
Cursorsymbols. 

Bei Programmen, deren 
Erstellung schon längere 
Zeit zurückliegt, wissen 
wir nicht immer, was als 
Eingabe zu folgen hat. Ei- 
ne kurze Mitteilung in- 
nerhalb des INPUT-Be- 
fehls ist daher unbedingt 
zu empfehlen. 
Betrachten Sie dazu ein- 
mal Zeile 120. Allerdings 


haben wir zunächst diese 
Zeile durch das davorge- 
setzte REM außer Ge- 
fecht gesetzt. Alles, was 
nach so einer Anweisung 
in einer Programmzeile 
folgt, wird vom Compu- 
ter ignoriert und nicht 
ausgeführt, sondern nur 
als Bemerkung betrachtet, 
auf Englisch REMARK, 
daher die Abkürzung 
REM. 

Um Ihnen (und uns) die 
Arbeit zu erleichtern, ha- 
ben wir in der folgenden 
Zeile 130 der Variablen 
CO$ die codierte Zeichen- 
folge direkt zugewiesen. 
Falls nämlich noch Pro- . 
grammierfehler enthalten 
sein sollten, dann braucht 
nach deren Korrektur 
diese sehr fremdländisch 
klingende Zeichenfolge 
nicht jedesmal mühsam 
von Hand eingegeben zu 
werden. 

Für spätere Abläufe, also 
wenn das Programm fer- 
tig ist und fehlerfrei läuft, 
können Sie vor die An- 
weisung CO$ =... ein 
REM setzen und dafür 
das in Zeile 120 (vor der 
INPUT-Anweisung) ent- 
fernen. 


DURCH DIE ZEICHEN- 
KETTE WEISS DER 
COMPUTER 

ALLES NÖTIGE 


Alles, was wir dem Com- 
puter an Informationen 
geben konnten, haben wir 
getan. Die Zeichenfolge 
ist ihm nun bekannt, die 
Länge dieses Strings kann 
er sich gefälligst selbst 
ausrechnen. 

Die Anweisung dazu lau- 
tet LEN(String). LEN ist 
leicht zu merken (was üb- 
rigens für die meisten 
BASIC-Befehle gilt), 
wenn Sie ein bilschen Eng- 
lisch können. Es wurde 
aus dem Wort length 
(=Länge) hergleitet. 

Die Befehlsfolge von 

LE = LEN(CO$) läßt 

sich am besten so überset- 
zen: Die Länge der Zei- 
chenkette CO$ in der nu- 
merischen Variablen LE 
merken. 

Nachdem der Computer 
die Länge berechnet hat, 
soll er die Wurzel ziehen, 
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damit er die Seitenlänge 
des Quadrates weiß. 

Die Wurzel (in diesem 
Fall die Quadratwurzel) 
wird durch den Befehl 
SQR(LE) gezogen. Da es 
aber keine halben Felder 
gibt, ist die Lösung nur 
dann richtig, wenn es sich 
bei der Wurzel um eine 
echte INTeger-Zahl han- 
delt. Deshalb wird in Zei- 
le 150 gleich festgelegt, 
daß für die Variable WU 
der Integer-Wert berech- 
net wird. 

Wenn die Mitteilung aber 
nicht so lang ist, daß sie 
ein Quadrat ganz ausfüllt, 
dann sind noch die 
Spaces, die Leerstellen im 
Text. Dadurch würde sich 
über die Integerberech- 
nung ein Fehler einschlei- 
chen. 

Wir fangen dies in Zeile 
160 ab, indem immer 
dann, wenn das Quadrat 
der Seitenlänge kleiner 
ist als die Anzahl der Zei- 
chen, ein Leerzeichen an- 
gefügt und die Berech- 
nung neu durchgeführt 
wird. Der Code fürs Leer- 
zeichen ist 'CHR$(32)‘. 


DIE WURZEL DARF 
NUR GANZZAHLIG 
SEIN 


“ Zur Verdeutlichung des 


eben Gesagten: Die Län- 
ge der Mitteilung beträgt 
63 Zeichen. Berechnen 
wir daraus die Quadrat- 
wurzel, dann ergibt sich 
ein „krummer“ Wert von 
Dieser Wert kann in unse- 
rem Falle nicht die Seiten- 
länge des Quadrates sein, 
denn wir arbeiten ja nicht 
mit Bruchteilen von 
Buchstaben oder Zeichen. 
Deshalb die künstliche 
Verlängerung der Zeichen- 
kette, eine neuerliche Be- 
rechnung der Wurzel und 


-dann wieder ein Vergleich. 


Dies erfolgt so lange, bis 
der Wert für WU der Zahl 
8 entspricht. 

Nun ist die Seitenlänge 
bekannt. Was aber noch 
zu tun ist: Die einzelnen 
Buchstaben in korrekter 
Weise zusammenzufügen 
und auszugeben. 

Zu diesem Zweck haben 
wir zwei Schleifen pro- 
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grammiert, die uns den je- 
weils aktuellen Buchsta- 
ben, im Programm EM$ 
genannt, herausfiltern. 
Dies passiert in den Zei- 
len 160 bis 210. 

Dabei erledigen wir in die- 
sen Zeilen gleich zweier- 
lei: Einmal möchten 

wir den Klartext so ausge- 
ben, wie er im ursprüng- 
lichen Quadrat stand, 
und zum anderen wollen 
wir ihn gleich in einen 
neuen String schreiben, 
der anschließend ausge- 
geben werden soll. 

Wir wissen es und der 
Computer berechnet es 
aus der Länge; unser Bei- 
spieltext bestand aus ei- 
nem 8 * 8-Quadrat. Des- 
halb brauchen wir nur, 
beim ersten Zeichen be- 
ginnend, jeweils immer 
das neunte (acht plus 
eins) Zeichen zu lesen, 
bis wir am Ende angelangt 
sind; dann wird der glei- 
che Vorgang wiederholt, 
nur diesmal beim zweiten 
Zeichen beginnend und 
so fort. Aber dafür haben 
wir ja das Programm ent- 
wickelt. 


DAS CODIERUNGS- 


PROGRAMM WIRD 
ENTSCHLÜSSELT 


Die Lösung ist recht ein- 


fach: Eine Schleife (Zei- 
le 160) zählt immer von 

1 bis WU und die andere 
von O bis LE, mit der 
Schrittweite von WU. Die 
Schrittweite wird durch 
den Befehl STEP und den 
anschließenden numeri- 
schen Ausdruck definiert 
(STEP WU). 

Die Zeile 180 isoliert nun 
den jeweilig korrekten 
Buchstaben aus der Ge- 
samtzeichenkette. Den- 
ken wir das einmal theo- 
retisch durch. 

Beim ersten Durchlauf 
der Zeilen 160 bis 210 ist 
der Wert in der Variablen 
J=1,derWertinK=0. 
Das heißt, in der Zeile 
180 wird der Stringvaria- 
blen EM$ der erste Buch- 
stabe (= ‘C*) zugewiesen. 
Dies können wir leicht 
feststellen, wenn wir die 
Variablennamen in Zeile 
180 durch ihre Werte er- 
setzen. Daraus ergibt sich 
folgender Befehl: 


EM$ = MID$( CO$, 
1#0,1) 


MID$, in dieser Form an- 
gewandt, ordnet EM$ die 
Zeichenkette aus CO$ zu, 
die an der Position J + 
K (=1) beginnt und ein 


. Zeichen lang ist ( ‚1). 


Durch Zeile 190 wird die 
Zeichenkette für KL$ zu- 
sammengebaut. Beim er- 
sten Durchlauf enthält 
KL$ deshalb das Zeichen 
C. 


liche FOR-NEXT-Schlei- 
fe begann. 

Es wird deshalb in Zeile 
170(!) fortgefahren. Die- 
se bewirkt nun eine Erhö- 
hung des Wertes für K 

um den Wert WU. Das 
heißt, K erhält eine Erhö- 
hung um acht und hat 
nun den Wert 8. Wenn Sie 
die Zeile 180 nun wieder 
auflösen, dann steht dort: 


EM $ = MID$ (CO$, 
3+1,7) 


Codierter Te-t 


18 rem codierter text 


28 rem by lothar miedel 

38 rem (c) commodore welt 

188 scncelr: print"loesung fuer ver 
schluesselungsquadrat":print 

118 print"waagracht schreiben, ":pr 
int"senkrecht auslesen!":print 

128 rem input"bitte text eingeben" 


;co$ 


1308 co$="cedsf n o-icucu mweheit m 


e rr2z olzi 8e dtefd-r o-iteb 


ne!" 


148 le=1len(co$) :wu=sint(sqr(le)) 


Et 
<nf> 
<bf> 


158 iflwu’2)<le thenco$=co$+chr$( 3 


2) :goto148 

160 forj=1towu 

178 fork=®tolestepwu 
188 
198 
2808 
218 
228 
230 
240 
258 
$:nextk,j 


k1$=k1$+em$ 


printem$" F 


rem 


em$=mid$(co$, jtk, 
nextk:print:nextj 
print:print"klartext: ";kl1$ 


forj=itowu:fork=dtolestepwu 
em$=mid$(kl1$, j+k, 


<ii> 

<da> 

<ob> 
1) <kn> 
<dg> 
<da> 
<mp> 
<dk> 
<fm> 
<fd> 
1):c1$=c1$+em 

<gj? 


268 print:print"codierter text: "c 


1$ 


Durch Zeile 200 wird das 
jeweils aktuelle Zeichen 
und anschließend ein 
Leerzeichen ausgegeben. 
Das Semikolon am Ende 
dieser Zeile weist den 
Computer an, nun keinen 
Zeilenvorschub auszufüh- 
ren, sondern in der glei- 
chen Zeile zu bleiben. 
Der Befehl NEXT K in 
Zeile 210 bewirkt, daß 
der Schleifenwert für K 
erhöht und dort weiterge- 
macht wird, wo die eigent- 


<ih> 


Das zweite Zeichen steht 
also nun an neunter Stel- 
le und entspricht dem 
Buchstaben 0. Beim näch- 
sten NEXT K wird wie- 
der um acht erhöht und so 
weiter. 

Wenn Sie sich die Mühe 
machen wollen, können 
Sie nun — Schritt für 
Schritt — den Programm- 
ablauf nachvollziehen. 
Der Befehl PRINT in Zei- 
le 210 bewirkt, daß bei 
der Ausgabe, nach jeweils 
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acht Zeichen, ein Zeilen- 
vorschub durchgeführt 
wird. Nach diesem wird 
dann der Wert für J er- 
höht. Da in der Schleife 
für J keine Schrittweite 
angegeben ist, wird jeweils 
um | erhöht. 
Nach der ersten PRINT- 
Ausführung in Zeile 210 
wird bei Zeile 160 weiter- 
gemacht. Der Wert für J 
ist dann 2. Gleichzeitig 
wird durch Zeile 170 der 
Wert für K wieder auf O 
gesetzt. Dadurch ergibt 
sich für Zeile 180 nun 
folgende Wertstellung: 
EM $ = MID$ (Co$, 
0+2, 1) 
Das heißt, nun wird beim 
zweiten Buchstaben be- 
gonnen und die innere 
Schleife (wieder neu) ab- 
gearbeitet. Dadurch ste- 
hen die aktuellen Zei- 
chen nun an den Positio- 
nen: 2, 10, 18, 26 usw. 
Diese Vorgänge wiederho- 
len sich so lange, bis der 
komplette Text entschlüs- 
selt, also sowohl in der 
8 * 8-Matrix ausgegeben 
als auch in KL$ (=Klar- 
text) zusammengebaut 
ist. In Zeile 220 wird 
dann der decodierte 
String ausgegeben. 


UND ALLES AUCH 
NOCH UMGEKEHRT 


Die Zeile 240 bewirkt das 
Gegenteil, nämlich die 
Rück-Verschlüsselung des 
Klartextes (KL$) in die 
ursprüngliche Form. Des- 
halb kann dieses Pro- 
gramm auch zur Ver- 
schlüsselung eingesetzt 
werden. Es ändert sich 
dann lediglich immer der 
Sinn der Ausgaben. Aus 
Klartext wird codierter 
Text und umgekehrt. 

Ein kurzer Hinweis bezüg- 
lich des Programmes sei 
uns noch gestattet: Bei 
der Ausgabe der Zeichen- 
kette in der quadrati- 
schen Bildschirmdarstel- 
lung fehlt selbstverständ- 


lich eine Zeile (es sind 
nur sieben), denn der ur- 
sprüngliche Klartext war 
ja nur 50 Zeichen lang, 
der Rest waren Leer- 
zeichen. LM/hbD 


MEGA-TOOL ist eine 
BASIC-Erweiterung für 
den Plus4 und den C16 
mit 64 KByte. Es erwei- 
tert das ohnehin umfang- 
reiche BASIC V3.5 um 
weitere 31 Befehle, die 
die Programmierung die- 
ses Computers sehr er- 
leichtern. 


OLD 

Holt ein versehentlich 
gelöschtes Programm wie- 
der zurück. OLD hilft 
manchmal auch, ein ver- 
stümmeltes Listing zu- 
rückzuholen. 


. g,s[ ,zeilen] 
ea Geräteadr. 

: ESOERE! Sekundäradr. 

zeilen.. wie bei LIST 

Gibt Listing am Drucker 

aus. 


MERGE “name’',g 
Verkettet zwei BASIC- 
Programme, wobei die 
Zeilennummern des 
nachgeladenen Pro- 
gramms höher sein müs- 
sen als die des ersten. 


DMERGE ’'name’’ 
Wie MERGE,nur auf 
Diskette. 


BLOCK ’’name‘’,g 

Lädt einen Speicherbe- 
reich, ähnlich wie 
LOAD“name‘“,g,1, aller- 
dings mit dem Vorteil, 
daß der Programmzähler 
nicht zurückgesetzt wird, 
das Programm also nicht 


wahre Bereicherung. 


wieder von vorne beginnt. 
BLOCK kann zum Bei- 
spiel zum Nachladen ei- 
nes Zeichensatzes ver- 
wendet werden. 


DBLOCK "name‘”’ 
Wie BLOCK, nur auf 
Diskette. 


SBLOCK ‘'name’',g,1, 
anfang,ende+1 

anfang. . . Anfangsadr. 
ende.... Endadr. 
Speichert einen bestimm- 
ten Speicherbereich auf 
Kassette oder Diskette 
ab. Kann zum Beispiel 
zum Abspeichern von 
Grafikseiten verwendet 
werden: SBLOCK 
“graphik‘‘,8,1,3072, 
16384 


DVERIFY “name” 
Verifiziert auf Diskette. 


ID 
Initialisiert eine Diskette. 


FAST 

Schaltet den Bildschirm 
aus, wodurch der Com- 
puter um zirka 30 Pro- 
zent schneller arbeitet, 
da der TED-Chip nicht 
mehr auf das RAM zu- 
greifen muß. 


SLOW 
Schaltet den Bildschirm 
wieder ein. 


MULTI 0/1 

Steuert das Multicolor- 
Bit des TED-Chips: 
MULTII schaltet den 
Multicolor-Modus ein, 
MULTIO schaltet ihn 
wieder aus. 


REVERS 0/1 

Steuert das Revers-Flag 
des TED-Chips. Ist die- 
ses Bit gesetzt, so er- 
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3ilneue Befehle 


Mit einer richtigen Syntax ausgestattet, bietet 
Mega-Tool eine Reihe nützlicher Funktionen an. 
So gibt es einen OLD-Befehl, einen Plot-Befehl und 
eine Merge-Routine, sogar Windows und Sprites sind 
spielend zu handhaben. Mega-Tool ist für jeden, 

dessen Rechner 64 KByte aufweist, eine 


zeugt der TED keine re- 
versen Zeichen und man 
kann auf den gesamten 
Zeichenvorrat des Com- 
puters zugreifen (statt 
revers Kleinschrift). 


BIT adr,bit-#,0/1 

SAL. zunaen Speicheradr. 
bit-#... Stellung des 
Bit (0-7) 

Ermöglicht ein bitweises 
Poken. 

Zum Beispiel entspricht 
BIT65298,2,0 dem Be- 
fehl POKE65298 ‚PEEK 
(65298) AND255-4 


TRANS 0/1 

TRANS 1 kopiert den 
ROM-Zeichensatz ins 
RAM und zwar ab der 
Speicheradresse $E800, 
wo er verändert werden 
kann. Alle TED-Register 
werden auf diesen Zei- 
chensatz umgestellt. Um 
zu verhindern, daß er von 
BASIC überschrieben wird, 
wird die Speichergrenze 
um ein KByte nach unten 
gesetzt. Dadurch werden 
alle Variablen gelöscht. 


SPRITE nummer,x,y,col 


nummer... Spritenummer 
(0-15) 

Kyıusıay Koordinaten 
des Sprites 

Ole; Farbe des 
Sprites (Bild- 


schirmcode) 
Der SPRITE-Befehl ist ei- 
ner der mächtigsten Be- 
fehle dieser Erweiterung. 
Er dient zur Verwaltung 


SERVICEE 


von 16 verschiedenen 
Pseudosprites, allerdings 
nur in Koppelung mit ei- 
nem veränderten Zeichen- 
satz. 

Die Struktur der Sprites 
ist folgendermaßen: 
Jedes Sprite besteht aus 
2 mal 2 Zeichen. 

Sprite Nummer O besteht 
aus den Zeichen 64, 65, 
66 und 67, Sprite Num- 
mer 1 aus 68, 69, 70 und 
71 und so weiter, bis zu 
Sprite Nummer 15 aus 
den Zeichen 124, 125, 
126 und 127. 

Mit dem Zeichen 64 ist 
nicht das ASCII-Zeichen 
Nummer 64 (Klammer- 
affe) gemeint, sondern 
der Bildschirmcode Num- 
mer 64, also das Stern- 
chen mit SHIFT. Die voll- 
ständige Tabelle steht auf 
den Seiten 213 und 214 
im Handbuch. Da fast 
alle Zeichensatz-Program- 
me diesen Bildschirm- 
code verwenden (etwa 
der Graphic-Designer von 
Kingsoft), dürften sich 
damit kaum Probleme 
ergeben. 

Das erste Zeichen des 
Sprites befindet sich links 
oben, das zweite rechts 
oben, das dritte links un- 
ten und das vierte rechts 
unten. 

Wem ein Sprite aus vier 
Zeichen zu klein ist, 

muß mehrere Sprites zu 


einem zusammenfassen. 
Zur Anwendung des Be- 
fehls: X ist die Spalte, 

Y die Zeile, in welcher 
das Sprite erscheint. 

COL ist die Farbe, wo- 
bei Werte über 127 ein 
Blinken hervorrufen. 
COL kann man sich mit 
folgender Formel errech- 
nen: Farbe + Luminanz 

* 16. 

Mit dem SPRITE-Befehl 
können Sprites neu ge- 
setzt und bewegt wer- 
den. Allerdings sollte man 
es vermeiden, Sprites über- 
einander zu legen, da dies 
bei falscher Anwendung 
(Bewegen des darunter- 
liegenden Sprites) uner- 
wünschte Folgen haben 
könnte. 

Der Status eines Sprites 
wird mit der USR-Funk- 
tion abgefragt: Ist der 
Wert größer als 128, so 
ist das Sprite am Bild- 
schirm. Ist das sechste 
Bit gesetzt, so kollidier- 
te es mit dem Unter- 
grund: Es traf auf irgend 
ein anderes Zeichen als 
das Leerzeichen; andere 
Sprites gelten nicht als 
Hindergrund. Sollte das 
Sprite mit einem ande- 
ren kollidiert sein, so lie- 
fert USR(Spritenummer) 
AND 15 dessen Nummer. 


DEL nummer 
Löscht ein Sprite vom 
Bildschirm. 


PLOT x,y 
Setzt den Cursor an die 
Koordinaten x,y. 


WINDOW x1,y1,x2,y2 


x1,y1.. linke obere 
Ecke 

x2,y2.. rechte untere 
Ecke 


Definiert Fenster. 


SCREENxTOy 

x.. Quellbildschirm 

y.. Zielbildschirm 

Der SCREEN-Befehl dient 

zum Verwalten der bei- 

den RAM-Bildschirme. 

Nummern: 

O...sichtbarer Bildschirm 

l...RAM-Bildschirm ab 
$ECOO 


2...RAM-Bildschirm ab 
$F400 
Mit SCREEN kann man 
32 


BBasles: 0 0 0.220 0.0.00. 


den Bildschirm x in den 
Bildschirm y kopieren. 
Als Anwendung wäre das 
Verwalten von Fenstern, 
wie beim Amiga, denkbar: 
Sichtbaren Bildschirm ins 
RAM kopieren, mit CHAR 
das Fenster bilden, zum 
Schließen des Fensters 
den Bildschirm wieder 
zurückkopieren. Ebenfalls 
möglich ist das Einblen- 
den von Informationen 
wie Anleitungen oder Hi- 
Score-Tabellen. 

Beim SCREEN-Befehl 
werden alle Bildschirmpa- 
rameter wie Cursorposi- 
tion, Revers-Flag, Hinter- 
grund- und Rahmenfar- 
be mitkopiert. 


HARDCOPY g,s 

9,5... wie bei LLIST 
Druckt den momenta- 
nen Bildschirm mit allen 
Grafikzeichen, sofern sie 
am Drucker vorhanden 
sind, aus. 


INIT 

Initialisiert Bildschirm, 

TED und Sprungvekto- 

ren, ohne ein Programm 
zu unterbrechen. 


SWAP a$,b$ 
a$,b$... beliebige String- 
variablen 


Vertauscht zwei String- 
variablen ohne die Erzeu- 
gung von ‚„Stringmüll“. 


SLEEP dauer 
dauer... Zeit in Hun- 
Sekun- 


en 

SLEEP ersetzt die FOR- 
NEXT-Warteschleifen. 
Der Befehl wird durch 
den Raster-Interrupt ge- 
steuert und kann durch 
die RUN/STOP-Taste 
unterbrochen werden. 
Ein Tip: Mit SLEEP I] vor 
dem SPRITE-Befehl 
wird, vor allem bei’sehr 
schnellen Spielen, Bild- 
schirmflimmern unmög- 
lich gemacht, danach - 
einem SLEEP-Befehl im- 
mer ein neuer Bildschirm- 
aufbau stattfindet. 


MEGA-TOOL. 


(p}) COMMODORE WELT TEAM 


ss =sszsssosescosoıoocoomoeosyoseo-=- 


(c) by Bernhard Oemer 


G16/116/Plus4 


Das Programm ist mit dem Maschinen- 
sprachmonitor TEDMON unter Zuhilfe- 
nahme des Pruefsummenprogrammes 
CHEGKMON einzugeben und auf Disket- 
te mit s"mega-tool”,8,1891,17e8 ab- 
zuspeichern. Auf Kassette bitte mit 
s"manager"”,1,1881,17e8 abspeichern. 
Geladen und gestartet wird wie bei 
einem normalen Basic-Progamm. 


>1B80B BB Be 18 c3 87 Ye 28 28 :<da> 
>ina8 34 31 31 32 29 BO Ba BB :<9Y9Ff> 
>1B19 a9 18 85 2c a9 MB 8d BR :<3a> 
>1818 18 a9 ec 85 38 a2 85 bd :<d4> 
>1928 96 19 9d4 Bc 93 ca 18 F7 :<c2> 
>19028 20 81 ff 28 Ba ff a9 7b :<S5e> 
>19038 8d 2a 93 a9 16 8d 2b B3 :<e2> 
>1838 28 7b 16 a9 fB 8d 15 ff :<aß> 
>18AB 8d 19 FF 28 Af ff Bd 85 :<e7> 
>1848 93 298 43 Af Ad Ad Af 44 :<Ab> 
>19a50 AfF 52 AS 28 42 41 53 49 :<7c> 
>1058 A3 20 56 33 Ze 35 28 2b :<35> 
>1068 298 Ad 45 47 41 2d 54 Af :<QB> 
>1968 Af Ac 28 56 31 38 2e 39 :<6Ff> 
>1878 Bd Bd 28 28 33 36 28 Ae :<6i> 
>1878 45 57 28 43 Af Ad Ad A1 :<iB> 
>1088 Ae 44 53 28 Ai de AA 28 :<24> 
>1B888 BR 28 e5 88 29 Af ff Bd :<2b> 
>1890 Bd 9e BB Ac Ba 88 9c 18 :<7b> 
>10898 ba 198 d2 iB 85 da aß ei :<c5> 
>19aQ0 a9 18 28 07 Ba 98 BA AB :<B2> 
>19838 Ac d6 89 a5 da A4c 6c 89 :<ea> 
>10b8 aa aß ei 84 22 aß 1A 84 :<d6> 
>18b8 23 aß 88 ca 198 19 bi 22 :<94> 
>18cB8 85 93 e6 22 dB 92 e6 23 :<Ad> 
>18c8 35 83 ı9 F2 39 ed 18 Ac :<e9> 
>18d0 88 8b 29 7f Ba a8 b9 87 :<97> 
>1@2d8 11 48 b9 86 11 AB Ac 73 :<23> 
>1B8e9 94 Af Ac cA 42 Ac Af 43 :<a2> 
>1B8e8 cb 44 42 Ac Af 43 cb Ad :<f5> 
>1ı8rB8 A5 52 47 c5 44 Ad 45 52 :<B6> 
>18f8 47 c5 53 58 52 49 54 c5 :<bf> 
>1100 44 A5 cc 46 A1 53 dA 53 :<58> 
>1188 4c Af d7 Ad 55 Ac 54 c9 :<B9> 
>ı1110 52 45 56 45 52 d3 54 52 :<46> 
‚>1118 41 4e d3 53 A4c 45 45 d®@ :<81> 
>1128 58 Ac Af dA 57 49 4e 44 :<15> 
>1128 Af d?7 53 57 Ai dd 42 49 :<26> 
>1139 d4 52 AS 53 45 dA 48 41 :<aa> 
>1138 52 44 A3 Af 58 d9 53 42 :<fi> 
>1148 Ac Af 43 cb Ac Ac 49 53 :<e9> 
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>1148 
>1158 
>1158 
>1168 


>1168 


»-1178 
>1178 


>1188 
>1188 
>1198 
>1198 
>11a8 
>11a8 
>11b® 
>11b8 
>11c® 
>11c8 
>11d® 
>11d8 
>11e® 
>11eB 
>11fB8 
>11f8 
>1288 
>1288 
>1218 
>1218 
>1228 
>1228 
>1238 
>1238 
>1248 
>1248 
>1258B 
>1258 
>1268 
>1268 
>1278 
>1278 
>1288 
>1288 
>1298 
>1298 
>1238 
>1248 
>12bB 
>12b8B 
>12c8 
>12c8 
>12d8 
>12d8 
>12e8 
>12e8 
>12f8 
>12f8 
>1398 
>1398 
>1318 


da 
53 
49 
Ab 


d2 


a5 
49 


1a]] 
ce 
16 
15 
Gt 
27, 
37 
27 
26 
2b 
af 
a9 
a9 
4c 
85 
a4 
aa 
85 
11 
88 
85 
aa 
Ad 
ba 
dB 
aa 
db 
98 
cB 
a6 
9d 
a5 
99 
3c 
06 
88 
dA 
e8 
cd 
68 
17 
a5 
e8 
27 
Ac 
88 
d2 
ff 
06 
28 
8b 


45 
45 
c4 
42 


58 


53 
55 


au 
11 
12 
13 
13 
14 
15 
16 
17 
88 
dc 
ad 
dS 
28 
2c 
eg 
28 
db 
88 
85 
85 
dB 
20 
dS 
d4 
85 
i2 
27 
12 
22 
a5 
ab 
c9 
85 
fa 
d2 
Ba 
84 
bd 
9d 
17 


Ba 


e3 
28 
78 
d® 
ff 
8d 
18 
ed 
4c 


d9 :<a9> 
de :<82> 
54 :<sef> 
45 :<ie> 
52 :<28> 
44 :<7Ff> 
00 :<4B> 
11 :<4b> 
11 :<4Ad> 
12 :<bd> 
13 :<gf> 
14 :<4a> 
15 :<1f> 
16 :<44> 
17 :<ei> 
91 :<ef> 
28 :<c2> 
17 :<39> 
ff :<Ba> 
17 :<a6> 
2b :<57> 
2d :<44> 
88 :<e5> 
da :<d2> 
cA :<36> 
a9 :<gf> 
a2 :<eBd> 
28 :<64> 
ba :<b7> 
18 :<47> 
28B :<?7c> 
Ba :<77> 
a4 :<c2> 
12 :<de> 
12 :<5d> 
88 :<4A5> 
da :<21> 
17 :<b8> 
1c :<af> 
29 :<b8> 
d@® :<34> 
9d4 :<6d> 
a5 :<23> 
d® :<64> 
ba :<48> 
01 :<a2> 
9b :<72> 
17 :<58> 
12 :<d5> 
69 :<93> 
cB :<29> 
bd :<c@> 
91 :<3b> 
06 :<7d> 
ad :<ab> 
60 :<45> 
bd :<b6> 
198 :<7a> 


« 
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>1318 85 da a9 87 85 14 a9 Ff :<B7> >14e8B 19 98 cd 39 Bd ?8 8b a7 :<59> 
»1328 85 15 28 84 Id Ac 57 14 :<d2> „ıarQ 20 cc ff a9 BB Ac c3 ff :<a8> 
ion 09 90 Au IB 19 90 10 99 ZeBb?  suen Du 5b a De de DR di en" 
»1730 26 Hl 98 20 BA 39 BA.MT 779 „ice BE di DU de Yd as 1a ad «< 
>1338 FO 07 eB HB fü 37 Ac 2d :<90> „,5g8 39 dß Ac dB ff 20 84 9d :<05> 
>1348 13 a9 eB 85 38 20 Y9d Ba :<af> „4510 B6 ae 28 dB 9d 86 ad a9 :<ad> 
»1348 a8 88 b9 BB dB 99 BB eB :<2a> >1518 88 85 ac 85 ab 28 85 a7 :<9B> 
>1358 b9 88 di 99 88 e9 b9 BB :<ed> >1528 a2 88 28 97 a7 a9 Bd 28 :<27> 
>1358 d2 99 88 ea b9 88 d3 99 :<aa> >1528 8b a? 28 79 84 FB 83 28 :<9g1> 
>1368 BG eb c8B dB e5 a9 Fb 2d :<2B> >1538 91 9A 28 FF Ba Ac eb i4 :<?7e> 
»1368 12 ff 8d 1i2 ff a9 eßB Bd :<ic> >1538 a9 e6 28 ?i cb 28 b5S cc :<cB> 
>1378 ı3 ff Ac dc 8b 59 ec 55 :<208> >1548 a2 BB Be 78 92 eB 85 Ba :<b9> 
>1378 38 28 9d Ba a9 84 Bd 12 :<99> >1548 aß 985 20 3 ca Ac fa a? :<2a> 
>1388 ff 8d 12 ff a9 dB dB e7 :<9a> >1558 A4c Ic 99 28 84 9d eQB 83 :<f6> 
>1388 28 ei 9d a5 14 dß 85 a5 :<fB> >1558 ba fF6 86 da a9 34 28 93 :<Ya> 
>1398 15 dß 81 68 a5 15 30 95 :<6b> >1S5690 9A 208 84 9d Ba c9 83 bA :<Ff3> 
>1398 a9 80 85 da 78 a9 be Bd :<54> >1568 e? c5 da f® e3 85 db a2 :<a3> 
>13a@ 14 83 a9 13 8d 15 93 58 :<95> >1578 Bb b5 c2 9d eB Uf ca 18 :<39> 
>1338 a5 da dB 85 28 ei ff dß :<ea> >1578 f8 a2 83 bd ee 87 9d FA :<95> 
>13b8 f7 78 a9 Be Bd 14 83 a9 :<di> >1588 OF ca 19 F7 ad 15 FF Bd :<a6> 
>13b8B ce 8d 15 83 58 68 c6 14 :<d5> >1588 FB Bf ad 1i9 fFf Bd fF9 af :<if> 
>13c8 dß 88 c6 15 18 BA a9 ff :<9Yb> >1598 39 88 85 dB 85 d2 a6 da :<Sc> 
>13c8 85 da Ac Be ce Ac Ic 99 :<a5> >1598 bd 88 17 85 di a6 db bd :<79> 
>13d8 28 78 de 28 84 9d eB 28 :<34> >15a8 88 17 85 d3 78 8d 3f ff :<41> 
>13d8 bU f3 86 ca 28 dB 9d eBß :<db> >1538 a2 97 a8 BR bi dA 91 d? :<eb> 
>13e® 19 ba ea 86 cd Ac a8 dB :<95> >15bM cB dd fF9 e6 di e6 d3 ca :<54> 
>13e8 28 8A 9d ed 27 bB de Be :<44> >15b8 1a FB 8d 3e Ff 58 ad F9 :<7?d> 
>13fB e7 87 28 dB 9d eBß 18 bA :<d4> >15c8 Bf 8d 19 ff ad fB Of 8d :<7f> 
>13f8 dA Be e6 87 28 dB 9d Ba :<6c> >15c8 15 ff a? 83 bd fA Of 9d :<35> 
>1408 cd e?7 97 98 c8 Bd eB 97 :<e23> >15d8 ee 87 ca 18 fF7 a2 Bb bd :<if> 
>1488 28 dB 9d Ba cd e6 87 98 :<4a> >15d8 e8B Af 95 c2 ca IB FB Ac :<f6> 
>1418 be Bd e5S 87 a9 93 Ac 49 :<Bb> >15e8 a8 dS 28 B1I FF 28 BA ff :<Af> 
>1418 dc 28 2c 93 28 1a 93 a5 :<iB> >15e8 28 8a ff 28 cc ff 28 Af :<e?> 
>1428 64 85 dB a5 65 85 di 28 :<54> >1S5fB8 ff 1b Ac 9e 93 BB a2 BB :<e3> 
>1428 91 94 28 2c 93 28 1a 93 :<fb> >15f8 8e 15 ff Be 19 ff 86 de :<7B> 
>1438 aß 88 bi dd 85 da bi 64 :<bb> >16B88 39 7b Bd ?a 93 a9 Ii6 Bd :<e5> 
>1438 91 d® a5 da 91 64 c8 cB :<ee> >1688 2b 93 Ac 38 c? 389 OB a2 :<Ic> 
>1448 93 dB ef 68 28 d2 9d eB :<B9> >1619 588 af Bf 29 ba ff a9 B1 :<F9> 
>144B 088 bO 82 Ba 49 87 aa bd :<d4> >1618 a2 27 aß 16 28 bd ff 28 :<cb> 
>1458 89 c2 85 da 28 dB 9d aß :<de> >1620 85 a7 a9 88 Ac c3 ff 49 :<4e> 
>1458 88 bi 14 eß Bi FO 07 eB :<35> >1628 28 7b 17 a5 61 FB 49 aß :<Ff2> 
>1460 BB FB 88 Ac 7e 12 85 da :<öf> »>i630 BO 78 Bd 38 ff b1 6? Bd :<3a> 
>1468 91 14 69 48 a5 da 49 Ff :<c5> >1638 3e ff 58 85 da 84 ef 35 :<e8> 
>1478 85 da 68 25 da 91 14 689 :<?7a> >1648 91 c9 7F dB 981 60 a5 ef :<i>> 
>1478 28 2b cd FB Bi 68 Ac F9 :<dB> >1648 Fa F5 78 a9 BB 85 ef ad :<ce> 
>1480 ff 08 a9 988 85 ad a9 BA :<fFf> >1658 27 85 SB c5S da d® eB 5B :<2b> 
>1488 85 ae 28 fB i6 28 84 9d :<3c> >1658 68 29 7b 17 a4 61 cd Hb :<H5> 
>1490 86 ae 289 73 84 FO Bc c5 :<d6> >1668 bB 16 84 ef 88 380 19 78 :<7a> 
>1498 2c f® 93 Ac al 94 28 84 :<17> >1668 8d 3f ff b1 62 99 27 85 :<f7> 
>1438 9d 86 ad 39 BB 85 ac 85 :<d7> >1678 88 19 fB 8d 3e ff 58 68 :<64> 
>14a8 ab 28 85 a7 a2 908 28 97 :<09> >1678 Ac Ic 99 a2 ff 86 d6 86 :<97> 
>14bB a? 39 Bd 28 Bb a7 a2 BA :<Ya> >16809 d? e8 86 de Ac B88 ef 88 :<48> 
>14b8 28 6a 17 ad BB bi dB 29 :<78> >1688 28 86 9a 28 FO 3a c9 Fd :<FfB> 
>14c8 7f c9 28 bB 85 69 AB Ac :<if> >1698 FO 6b c9 fc fB 6d 24 de :<a5> 
>14cB d9 14 c9 48 98 Bb c9 68 :<äc> >1698 198 Ob aA df FB 18 88 FB :<ce> 
>14dß bB BA 69 28 da 83 18 69 :<38> >1638 Ic 84 df dd 23 28 ei 9d :<18> 
>14d8 AU 28 8b a7 cB cO 28 98 :<ef> >1638 a5 14 85 df a5 15 85 ed :<7f> 
>1i4eß dc a9 Bd 28 Bb a7 eB eBß :<FfO> >16b8 a9 88 85 de dA 12 c6 df :<42> 
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>16bB 
>16c09 
>16c8 
>16d8 
>16d8 
>16e8 
>16eB 
>16r8 
>16f8 
>1788 
>1798 
>1718 
>1718 
>1728 
>1728 
>1738 
>1738 
>1748 
>1748 
>1758 
>1758 
>1768 
>1768 
>1778 
>1778 
>17808 
>1788 
>1798 
>1798 
>17a08 
>17a8 
>17bB 
>17b8 


WAITKEY a$ 

Wartet, bis die Taste a$ 
gedrückt wird und ent- 
leert vorher und nachher 
den Tastaturpüffer. 


BUFFER a$ 

Belegt den Tastaturpuf- 
fer mit dem String a$, wo- 
bei a$ nicht länger als 10 

* Zeichen sein darf. 

Der BUFFER-Befehl 
kann vor allem zur Selbst- 
modifikation von Pro- 
grammen verwendet 
werden. 


16 84 df a4 :<58> 
de Ac ei 9d :<97> 
d8 8f a5 d?7 :<Ba> 
aS d8ö 85 3b :<cf> 
68 a5 39 85 :<31> 
3a 85 d? 85 :<58> 
a5 5f e9 81 <77> 
a5 698 e9 BB :<5c> 
60 208 Ac b6 :<55> 
A4c b6 FB cQO :<cB> 
86 86 289 584 :<ec> 
28 d8ö 9d4 Be :<5c> 
9d Be FA 987 :<a3> 
f5 097 60 20 :<52> 
fd le c9 28 :<b3> 
a2 88 aß Bf :<Q@2> 
61 a6 62 a4 :<f3> 
28 85 a7 a9 :<3a> 
dc 1c 99 39 :<84> 
6b aß a9 e6 :<Q4> 
b5S cc a9 88 :<8B5> 
Ba aß 85 Ac :<81> 
d8 85 d@ 85 :<B5> 
85 di 29 8b :<?78> 
16 48 28 2c :<62> 
68 85 16 68 :<c3> 
un ma ma BB :<db> 
un va na Ba :<38> 
vun BB Ba BB :<4AB> 
vB BB Da 88 :<58> 
29 BO BO BR :<68> 
oo ua Ba Ba :<7B> 
af ff Bd 28 :<a5> 
59 28 42 45 :<3c> 
s2 44 28 Af :<fb> 
28 28 31 39 :<2b> 
s5 53 54 52 :<af> 
88 Ac 83 88 :<99> 
NDE 


REGISTER a,x,y,s 
Definiert die Prozessor- 
Register vor einem SYS- 
Aufruf 


a = Akkumulator 
x = X-Register 

y = Y-Register 

s = Statusregister. 
DISK a$ 


Sendet einen Befehl an 
die Diskettenstation 
a$ = Befehlsstring. 


REPEAT x / UNTIL 
cond / WHILE cond 
Dieser Befehl dient zur 
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Programmierung von kur- 
zen Schleifen. Er steht 
am Ende einer Zeile. 

Bei REPEAT x wird die- 
se Zeile x-mal wiederholt, 
bei REPEAT UNTIL 
cond wird die Zeile wie- 


Speicherplan von 
MEGA-TOOL: 


$1001 — $100F 
BASIC-Kopf 
$1010 — 81095 
Initialisierung 

$1096 — $10EO 
Behandlung des Tokens 
$10E1 — $1180 
Befehlswörter (Tokens) 
$1186 — $11C3 
Befehlsadressen 

$11C4 — $1782 
Routinen der Befehle 
$1783 — $17BA 
Arbeitsspeicher 

$17BB — $17E7 
USER-Routine 


Abkürzungen der 
Befehle: 


register 
disk 


Die Abkürzungen der her- 
kömmlichen BASIC-Be- 
fehle können sich ändern: 
Die Abkürzung ‚„‚scR, für 
„scratch‘“, bedeutet mit 
MEGA-TOOL ‚‚screen‘“. 


derholt, bis die Bedin- 
gung cond erfüllt ist. Bei 
REPEAT WHILE cond 
wird die Zeile wiederholt, 
solange die Bedingung 
erfüllt ist. 


RESET 

Löst ein RESET aus. Im 
Direktmodus muß man 
vorher die Sicherheitsab- 
frage ARE YOU SURE? 
mit Y beantworten. 


USER 

Ruft die USER-Routine 
($17BB) auf. Dort kann 
zum Beispiel der Aufruf 
eines eigenen MS-Pro- 
grammes stehen. Nach 
dem Start der Erweite- 
rung befindet sich an die- 
ser Stelle die Copyright- 
Meldung. 


FUNKTIONSWEISE 


DES PROGRAMMS: 


Die Erweiterung liegt ab 
$1000 im Speicher. Nach 
dem Starten mit RUN 
wird der BASIC-Anfang 
auf $1800, das BASIC- 
Ende auf $ECOO gesetzt, 
um ein Überschreiben 

der Erweiterung, des 
Sprite-Speichers und der 
RAM-Bildschirme zu ver- 
hindern. 

Außerdem werden die 
Vektoren zur Handhabung 
des USER-Tokens ($030C 
bis $0311) auf eigene Rou- 
tinen gelegt. Dann werden 
der Bildschirm und der 
Speicher gelöscht, und 
MEGA-TOOL meldet 

sich mit der Einschalt- 
meldung. 

Durch die Verwendung 
des USER-Tokens werden 
auch die neuen Befehle 

in Tokens umgewandelt 
und sind daher nur zwei 
Byte lang. 

Als Arbeitsspeicher ver- 
wendet MEGA-TOOL den 
Bereich $ECOO bis $FCFF 


. sowie die Zeropage-Adres- 
“sen $DO bis $D5, aller- 


dings nur während der 
Ausführung des Befehls. 
Der übrige Systemspei- 
cher bleibt unberührt, 
kann also für weitere Ma- 
schinensprache-Program- 
me verwendet werden. 
Die hochauflösende Gra- 
fik steht uneingeschränkt 
zur Verfügung. 


BLISTINGS EEE HERTEEB 


Grafix 
| 3D in 
Bewegung. 


Mit Grafix können auf dem Pius4 und dem auf 
64 KByte erweiterten C16/116 bewegte 3-D-Grafiken 
erzeugt werden. Diese Grafiken sind nicht nur zum 
Ansehen gedacht, sondern können auch als interessan- 
te Vorspänne oder Zwischentitel in eigene 
Programme eingebunden werden. 


Aller guten Dinge sind drei, und so besteht Grafix aus 
drei Teilprogrammen. Das erste, GRAFIX.START, 
schaltet den Grafikmodus ein und lädt die zwei rest- 
lichen Teile nach. GRAFIX.MC ist der Maschinen- 
spracheteil, der für die schnellen Vektoroperationen 
zuständig ist. Das BASIC-Programm GRAFIX ent- 
hält die zur Dateneingabe und Datenkorrektur erfor- 
derlichen Routinen. Grafiken können editiert, gespei- 
chert, geladen und überarbeitet werden. 


DIE ARBEIT MIT DEM PROGRAMM 


Es lassen sich maximal 127 Punkte und 127 Linien 
definieren. Den einzelnen Koordinaten, Tiefe, Höhe 
und Breite, können ganzzahlige Werte zwischen —511 
und +511 zugewiesen werden. Wenn Sie bei der Defi- 
nierung der Linien, die an einem Punkt gezogen wer- 
den sollen, zum nächsten Punkt übergehen wollen, 
drücken Sie bei der erneuten Abfrage einfach 
RETURN. 

Beim Löschen eines Punktes werden sämtliche Linien, 
die von oder zu diesem Punkt gezogen werden, eben- 
falls gelöscht. Außerdem verschieben sich die Punkt- 
nummern der nachfolgenden Punkte um jeweils Eins 
nach unten. Die Daten der Linien erfahren hierbei 
automatisch eine entsprechende Änderung, so daß 
dadurch keine Fehler entstehen. 


BEDIENUNG DER GRAFIK 


Während der 3-D-Berechnungen stehen Ihnen folgen- 
de Funktionen auf Tastendruck zur Verfügung: 

R = Zurück ins Menü. 

Bild einfrieren. 

Programm starten. 

Programm nach Unterbrechung fortsetzen. 

Der Bildschirm wird von nun an ständig gelöscht. 
Die Berechnungen werden dadurch schneller. 
Nachteilig macht sich aber ein Flackern bemerk- 
bar (L-Modus). 

Die Bildschirmdarstellung erfolgt jetzt ohne Flak- 
kern, die Berechnungen dauern aber länger . 
(T-Modus). 


ran 
ara 


- 
il 


Drehbewegungen: 
Cursor rechts = Rechtsdrehung 
Cursor links Linksdrehung 


Drehung nach oben 


Cursor oben = 
= Drehung nach unten 


Cursor unten 


Drehbewegungen mit doppelter Schrittweite: 

> = Rechtsdrehung + = Drehung nach oben 

< = Linksdrehung — = Drehung nach unten 
Mit den Tasten 1 bis 8 werden beide Winkel gleichzei- 
tig beeinflußt. 


Weitere Bewegungen: 

O = Drehwinkel auf Null 

G = Objekt näher heranholen 
K = Objekt weiter wegrücken 
N = Drehen und heranholen 
M= Drehen und wegrücken 


Neben Laden, Speichern, Ändern, Löschen und Hinzu- 
fügen von Daten bietet das Menü auch die Möglich- 
keit, Bewegungsabläufe vorzuprogrammieren. In die- 
sem Menü-Unterpunkt ist die Taste mit der entspre- 
chenden Bewegungsfunktion zu drücken und danach 
anzugeben, wie viele solcher Bewegungen, maximal 
255, das Objekt ausführen soll. 


Eingabebeispiel: 
Anzahl der Punkte? 5 


Punkt Tiefe Höhe Breite 
1 0 60 0 
2 40 0 40 
3 40 ‘0 40 
4 40 0 —40 
5 40 0 —40 

Linien von 

l1zu2 2zu3 

1 zu 3 2zu5 

1zu4 3zu4 

1zu5 4zu5 


BESONDERE HINWEISE 


Die neue Draw-Routine arbeitet teilweise ungenau, 
wodurch es zu Veränderungen im Farbspeicher kom- 
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men kann. Dieser Fehler tritt allerdings nur im L- 
Modus auf. 

Wenn ein Objekt sehr nahe an den Betrachter heran- 
gerückt wurde, wird, um Fehlberechnungen vorzu- 
beugen, die Abbildung des Punktes auf 160,100 ge- 
setzt. Das Programm ist mit einem vollständigen 
Clipp-Teil versehen, so daß auch sehr große Objekte 
dargestellt werden können. 


EINGABE UND ABSPEICHERN DES 
GRAFIX-PROGRAMMES 


Da die Datasette nur der Reihe nach zu lesen vermag, 


müssen Datasetten-Benutzer sich beim Abspeichern 
der Programmteile an eine gewisse Reihenfolge 


halten: 
l. GRAFIX.START 3. GRAFIX 
2. GRAFIX.MC 4. GRAFIX.CBM 


GRAFIX.START und GRAFIX sind reine BASIC- 
Programme, so daß hierbei keine Besonderheiten zu 
beachten sind. 

GRAFIX.MC und GRAFIX.CBM sind gemäß den im 
Programmvorspann vermerkten Anweisungen mit Hil- 
fe des Maschinenmonitors TEDMON abzusaven. Der 
Maschinenteil liegt bei $5750 bis $6E00, die Daten 
der Objekte bei $1000 bis $1800 im Speicher. 
GRAFIX.CBM ist ein Datenfile, das das Commodore- 
Emblem in 3-D enthält. Sie können nach dem Start 
von GRAFIX.START diese Grafik durch entsprechen- 
de Wahl einladen. GRAFIX verwendet im T-Modus 
noch den Bereich $8000 bis $9FFF als Pseudo-Grafik- 
speicher. 


IB rem grafix.start=============p4 <mo> 
28 rem (p) commodore welt team <ho> 
38 rem =========================== ong> 
408 rem (c) by frank koster <ge> 
58 rem <pd> 
68 rem <ah> 
78 rem basic v3.5 und m-code <jd> 
88 rem plus4 (c16/116 +64 kb) <fd> 


98 Tem ==7=====3=2=2=2=252=S55S52S 22525225255 <jg> 


188 graphici,1:graphic® <oa> 
118 x$=right$(str$(peek( 174)),1) <fd> 
128 a$="grafix":r$=chr$( 13) <em> 
138 d$=chr$( 34) <op> 


148 b$=d$+a$+".mc"+d$+","+x$+",1"+ 


158 c$=d$+ta$+d$+","+x$+r$ <nn> 
168 key1,"10"+b$+"10"+c$+"rU”+r$ <nf> 
178 poke29A35,8:sys56364:end <df> 


188 Tem === ==5 52555555 555555 <cen> 


198 rem dieses programm laedt <cc> 
208 rem "GRAFIX.MC” und "GRAFIX" <hj> 
210 rem nach und startet das <af> 
228 rem letztere. <pm> 
230 rem ================5=5=5==5==== jo’ 
248 rem programmende <nf> 
250 rem ====================2====== <jf> 
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(p) COMMODORE WELT TEAM 


(c) by Frank Koster 
Plus4 (C16/116 + 64 KB) 


Das Programm ist mit dem Maschinen- 
sprachmonitor TEDMON unter Zuhilfe- 
nahme des Pruefsummenprogrammes 
CHECKMON einzugeben und auf Disket- 
te mit s"grafix.mc”,8,57580,6ed® ab- 
zuspeichern, auf Kassette mit 
s"grafix.mc", 1,5758,6e®8. 


>5758 a5 dA cS5S da 98 49 da 2f :<53> 
>5758 a5 d3 c5 d9 98 A1 dB 27 :<e4> 
>5768 28 da 58 38 a5 d®d e5 d6 :<be> 


>5778 ea ca d®ß 91 68 28 ea 59 :<11> 
>5778 d@ f7 aa eB ea ea ca dB :<45> 
>5788 B1I 68 28 Aa 59 dd f7 a5 :<B4> 
>5788 dB a4 d6 85 d6 84 dB a5 :<31> 
>5798 d3 aA d9 85 d9 84 d3 a5 :<6Ff> 


>57a8 da 58 38 a5 d9 e5 d3 85 :<ce> 
>57a8 d3 85 de a5 da e5S dA 85 :<33> 
>57bB dA 85 dd 38 a5 dB. e5S d6 :<35> 


>57d8 bc 59 da f2 49 ff a8 cB :<78> 
>57d8 84 dB Ac 5c 58 85 dB e6 :<b5> 
>57eß d®ß e6 dc e6 d3 dB 82 e6 :<ed> 
>57e8 d4 e6 dd 28 68 5a ad 988 :<65> 
>57f8 a5 d6 85 e® a5 d?7 85 el :<62> 
>57f8 aa a5 dB 85 e2 8a 29 Of :<e8> 
>58908 85 ei Ba 46 e2 6a 46 e2 :<ci> 
>58988 6a 46 e2 6a 46 e2 6a FB :<6d> 
>5818 89 aa ca fB 85 28 Aa 59 :<9B> 
>5818 dß FB c6 dc dB 85 c6 dd :<3c> 


>5848 46 e2 6a 46 e2 6a 46 e2 :<84> 
>5848 6a dd 85 28 bc 59 dB ca :<c7> 
>5858 aa 28 7F 59 ca fd c3 28 :<c3> 
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>58a38 
>5Bb2 
>58b8 
>58c8 
>58c8 
>58d® 
>58d8 


>58eB 


>58e8 
>58r8 
>58f8 
>5988 
>5998 
>5918 
>5918 
>5928 
>5928 
>593®@ 
>5938 
>5948 
>»5948 
>5958 
>5958 
>5968 
>5968 
>5978 
>5978 
>5988 
>5988 
>5998 
>5998 
>59a8 
>59a8 
>59b® 
>59b8 
>59c8 
>59c8 
>59d8 
>59d8 
>59e8 
>59e8 
>59f8 
>59f8 
>5308 
>5308 
>5318 
>5a18 
>5a28 
>5a28 
>5a38 
>5a38 
>53408 
>5348 
>5a58 
>5358 
>53a68 
>5a68 
>5a78 


ei 

Ba 
6a 
e2 
ca 
28 
a8 
f8 
26 
Ba 
26 
27 
27 
29 
27 
38 
08 
8d 
26 
e6 
fß 
bi 
Ft 
a5 
c6 
bi 

ff 
26 
ff 
3e 
38 
82 
22 
28 
46 
b1 
ER 
08 
öd 
26 
ro 
b1 
Fr 
a5 
e6 
b1 

ff 
26 
ff 
3e 
18 
a2 
82 
28 
ea 
84 
84 
86 


>5a78 
>5388 
>5a88 
>5398 
»5398 
>Saaß 
>5338 
>5ab® 
>5ab8B 
>S5acd 
>Sac8 
>5ad® 
>5ad8 
>5aeB 
>S5ae8B 
>5afd 
>S5af8 
>5b8B 
>5b88 
>5b18 
>5b18 
>5b28 
>5b28 
>5b38 
>5b38 
>5b4B 
>5b48 
>5b58 
>5b58 
>5b69 
>5b68 
>5b78 
>5b78 
>5b88 
>5b88 
>5b98 
>5b98 
>5baB 
>5ba8 
>5bb® 
>S5bb8 
»5bcB 
>5bc8 
>5bdA 
>5bd8 
>5bed 
>S5beB 
»>S5brf®8 
>Sbf8 


.>5c88 


>5cB8 
>5c19 
>5c18 
>5c28 
>5c28 
>5c38 
>5c38 
>5c4089 


Ba :<3a> 
d3 :<e5> 
89 :<57> 
f8 :<f7> 
88 :<d4> 
Ba :<99> 
d4 :<6e> 
d2 :<f5> 
d2 :<59> 
d? :<6a> 
88 :<fb> 
3d -:<d8B> 
85 :<ci> 
dS :<ac> 
d2 :<a8d> 
a5 :<QBi> 
65 :<d5> 
ea :<e?7> 
dB :<34> 
ff :<af> 
28 :<95> 
d8 :<6a> 
d8 :<23> 
080 :<bd> 
88 :<cb> 
ff :<S54> 
Be :<ie> 
88 :<b2> 
ef :<22> 
85 :<dd> 
69 :<41> 
f7 :<e?7> 
bA4 :<a?> 
85 :<49> 
c9 :<54> 
aB :<Q5> 
6B :<d?> 
89 :<fb> 
a5 :<96> 
a8 :<bb> 
60 :<c8B> 
85 :<6d> 
a5 :<s62> 
69 :<7c> 
f7 :<9d> 
ad :<9b> 
b9 :<97> 
e5 :<cf> 
85 :<Q4A> 
18 :<b8> 
8c :<ila> 
Bd :<a9> 
e6 :<2b> 
c6 :<?8> 
ad :<a?> 
d2 :<58> 
17 :<a6> 
07 :<43> 
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>5c48 
>5c58 
>5c58 
>5c68 
>5c68 
>5c78 
>5c78 
>5c88 
>5c88 
>5c98 
>5c98 
>5caß 
>5ca8 
>5cbB 
>5cb8B 
>5cc® 
>5cc8B 
>5cd® 
>5cd8 
>5ceß® 
>Sce8 
>5cf® 
>5cf8 
>5d98 
>5d98 
>5d18 
>5d18 
>5d28 
>5d28 
>5d38 
>5d38 
>5d48 
>5d48 
>5d58 
>5d58 
>5d68 
>5d68 
>5d78 
>5d78 
>5d88 
>5d88 
>5d98 
>5d98 
>5daß 
>5daß 
>5db® 
>5db8 
>5dc® 
>5dc8 
>5dd® 
>5dd8 
>5de® 
>5de8 
>5df® 
>S5df8B 
>5ed®8 
>5e88 
>5e18 


:<a4> 
:<c8d> 
:<e3> 
:<b8> 
:<a?7> 
<d?> 
<bd> 
ı<12> 
:<9d> 
»<41> 
ı<a6> 
:<e3> 
:<1la> 
:<61> 
:<Bd> 
:<c2> 
:<6c> 
:<84> 
<f9> 
<g9f> 
ı<af> 
:<b3> 
:<e6> 
ı<52> 
:<2b> 
:<18> 
:<c5> 
:<9d> 
:<d?7> 
:<e5> 
"<ca> 
:<B1> 
ı<26> 
:<bd> 
:<68> 
:<e?7> 
ı<f6> 
ı<62> 
:<e6> 
:<c5> 
"<ec> 
ı<62> 
:<ga> 
:<d2> 
:<b4> 
:<2d> 
:<16> 
:<af> 
:<21> 
:<ee> 
:<f1> 
:<bb> 
:<4i> 


<58> 
ı<f9> 
<13> 
<66> 
:<36> 


>5e18 
>5e28 
>5e28 
>5e38 
>5e38 
>5e4A8 
>5e48 
>5e58 
>5e58 
>5e68 
>5e68 
>5e78 
>5e78 
>5e8B8 
>5e88 
>5e98 
>5e98 
>5eaß 
>5eaß 
>5eb® 
»5eb8 
>5ecd 
>Sec8 
>5ed® 
>5ed8 
>5eed 
>S5eeB8B 
>5ef® 
>5efB 
>5f88 
>5fB8 
>5Ff18 
>5r18 
>5rf28 
>5rf28 
>5r30 
>5738 
>5f48 
>5f48 
>5758 
>5f58 
»>5f68 
>5f68 
>5rf78 
»5f78 
>5f808 
>5f88 
>5r98 
>5f98 
>5rad 
>5fa8 
>5fbB 
>5fb8 
>5fFcB 
>5fc8 
>5fdß 
>5fd8B 
>5rfeQ 


I, 

8d :<49> 
18 :<1i11> 
8c :<38> 
a5 :<ac> 
8d :<93> 
ff :<i1d> 
89 :<75> 
87 :<65> 
83 :<Q@d> 
88 :<?b> 
98 :<98> 
86 :<16> 
8b :<ec> 
a4 :<4e> 
a4 :<7e> 
d®ß :<ad> 
an :<72> 
aa :<9f> 
46 :<ad> 
dß :<ei> 
8c :<c4> 
28 :<ed> 
a5 :<B8> 
26 :<ic> 
8d :<ba> 
8d :<8öd> 
02 :<b4> 
88 :<@d> 
38 :<b7?> 
8d :<19> 
ff :<38> 
81 :<ib> 
28 :<76> 
890 :<bd> 
08 :<af> 
8d :<B1> 
83 :<b8> 
Ac :<48> 
8d :<45> 
89 :<2d> 
B8c :<B6> 
87 :<B4> 
29 :<a6> 
85 :<c?7> 
86 :<eb> 
BOc :<b@> 
8d :<2f> 
87 :<e7> 
65 :<57> 
85 :<74> 
18 :<?78> 
8c :<@4> 
86 :<84> 
a5 :<d8> 
65 :<4a> 
8a :<3c> 
86 :<52> 
8d :<e4> 


GRAFIX—-BEWEGUNG IN 2D 


>5rfeB 
>5Sfrf® 
>5fr8 
>6B28 
>6998 
>6B18 
>6B18 
>6928 
>6928 
>6838 
>6838 
>6848 
>6948 
>605® 
>6858 
>6060 
>6068 
>6878 
>6978 
>6088 
>6R88 
>6898 
>6898 
>6Ba8 
>6Ba8B 
>6B8b2 
>68b8 
>60cH 
>68cB 
>60d® 
>6Bd8 
>6B8e®d 
>60e8 
>60f®8 
>68r8 
>6108 
>6188 
>6118 
>6118 
>6128 
>6128 
>6138 
>6138 
>61408 
>6148 
>6158 
>6158 
>6168 
>6168 
>6178 
>6178 
>6188 
>6188 
‚>6198 
>6198 
>61a8 
>61a8 
>61b8 


fa 
a5 
ad 
ad 
85 
03 
a5 
ad 
85 
ed 
a5 
aß 
18 
aa 
29 
11 
IF 
b9 
aa 
85 
a5 
Bc 
Be 
d? 
a3 
4a 
a5 
85 
85 
85 
18 
27 
a5 
a5 
a5 
a5 
28 
Se 
a5 
35 
a5 
a5 
8c 
Be 
d1 
83 
4a 
a5 
a5 
88 
8c 
99 
o1 
a5 
a5 
28 
Bd 
d9 


:<a5> 
ı<57> 
:<Bb> 
:<98> 
:<ac> 
:<db> 
:<31> 
:<85> 
:<4de> 
ı<2B> 
:<da> 
:<B9> 
:<c1> 
:<Bc>2 
:<Q8> 
:<89> 
:<92> 
:<B6> 
ı<5f> 
ı<3a> 
ı<d5> 
:<ed> 
:<B7> 
:<96> 
:<7e> 
ı<e5> 
:<b6> 
ı<64> 
:<ae> 
:<c1> 
:<ie> 
:<Bc> 
:<ce> 
:<B7> 
ı<41> 
:<95> 
:<da> 
:<ce> 
:<dc> 
:<ad> 
ı<22> 
ı<81> 
:<7d> 
ı<d7> 
:<91> 
ı<fa> 
ı<22> 
:<68> 
:<BB> 
:<ed> 
:<13> 
:<ec> 
ı<2a> 
:<93> 
ı<63> 
:<dAa> 
:<bb> 
ı<77> 
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>61b8 


>61c® 
>61c8 
>61d® 
>61d8 
>61eB 
>61e8 
>61Ff®8 
>6i1Ff8 
>6208 
>6208 
>6218 
>6218 
>6228 
>6228 
>6238 
>6238 
>6248 
>6248 
>6258 
>6258 
>626M 
>6268B 
>6278 
>6278 
>6288 
>6288 
>6298 
>6298 
>62a0 
>6238 
>62bB 
>62b8B 
>62c8 
>62c8 
>62d® 
>62d8 
>62eB 
>62e8 
>62r8 
>62f78 
>6308 
>6308 
>6318 
>6318 
>6328 
>6328 
>6338 
>6338 


>6348 


>6348 
>6358 
>6358 
>6368 
>63685 
>6378 
>6378 
>63808 


I ; 
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>6388 
>6398 
>6398 
>6388 
>63a8 
>63bR 
>63b8 
>63c8 
>63c8 
>63d® 
>63d8 
>63eB 
>63e8 
>63Ff0 
>63r78 
>6409 
>6A498 
>6412 
>6418 
>6428 
>6428 
>6438 
>6438 
>6448 
>6448 
>6458 
>6458 
>6460 
>6468 
>64708 
>6478 
>64808 
>6488 
>6490 
>6498 
>64aR 
>6438 
>64b8 
>64bB 
>64c0 
>64c8 
>64dd 
>64dB 
>64e® 
>64e8 
>64f0 
>6A4f8 
>6508 
>6508 
>651®@ 
>6518 
>6520 
>6528 
>6538 
>6538 
>6548 
>6548 
>6558 


84 
26 
26 
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>6558 


>6568 
>6568 
>6578 
>6578 
>6588 
>6588 
>6598 
>6598 
>65a8 
>6548 
>65b2 
>65b8 
>65c98 
>65c8 
>65d2 
>65d8 
>65eB 
>65e8 
>65r2 
>65f8 
>6608 
>66098 
>6618 
>6618 
>6622 
>6628 
>66382 
>6638 
>6642 
>6648 
>6659 
>6658 
>6660 
>6668 
>6678 
>6678 
>6688 
>6688 
>6690 
>6698 
>6688 
>6638 
>66b9 
»66b8 
>66c8 
>66c8 
>66dd 
>66d8B 
>66eBd 
>66e8 
>66fB8 
>66f8 
>6708 
>6798 
>6718 
>6718 
>6728 


42 


28 


12 
01 
a8 
11 
88 
86 
da 
11 
88 
86 
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>68f8 
>6988 
>69898 
>6918 
>6918 
>6928 
>6928 
>6938 
>6938 
>6948 
>6948 
>6958 
>6958 
>6968 
>6968 
>6978 
>6978 
>6988 
>6988 
>6998 
>6998 
>6938 
>69a8 
>69b8 
>69b8 
>69c8 
>69c8 
>69d8 
>69d48 
>69e8 
>69e8 
>69fB8 
>69f8 
>6aB8 
>6a8B 
>6a318 
>6a18 
>6328 
>6a28 
>6a38 
>6a38 
>6348 
>6348 
>6358 
>6a58 
>6369 
>6368 
>6278 
>6278 
>6a88 
>6a88 
>6398 
>6398 
>6a330 
>6aa8 
>6abB 
>6abB 
>6ac® 


07 


| 


| 
| 


>6acB 
>5add 
>6ad8 
>6aed 
>6aeB 
>6afB 
>6af8 
>6b9a 
>6b98 
>6b 18 
>6b18 
>6b28 
>6hb28 
>6b38 
>6b38 
>6b48 
>6b48 
>6b5®8 
>6b58B 
>6b69 
>6b658 
>6b78 
>6b78 
>6b80 
>6bBB 
>6b98 
>6b98 
>6ba® 
>6baB 
>6bbB 
>6bb8 
>6bcB 
>6bc8 
>6bd® 
>6bd8 
>6bed 
>6be8 
>6bf® 
>6bfB 
>6c089 
>6c908 
>6c1®8 
>6c18 
>6c28 
>6c28 
>6c38 
>6c38 
>6c40 
>6c48 
>6c5® 


->6c58 


>6c68 
>6c68 
>6c78 
>6c78 
>6c80 
>6c88 
>6c98 
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KHlotline: 
Mittwochs 15-19 Uhr 
Tel.: OSs9gaB71298013 
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GRAFIX 
(p) COMMODORE WELT TEAM 


(c) by Frank Koster 


PLUS4 (Ci6/116 + 64 KB) 


Programmkopf und Programmende 
sind aus Platzgruenden wegzulas- 
sen. 


188 color®,1:colori,2:color4,1:gos 

ub 1398 

118 graphic1,1:graphicd, 1:print"”da 
ten laden j/n":getkeyt$:ift$="j"th 

en?748 

128 gosub116® 

138 gosub97@:input”anzahl der punk 
te,die sie definieren wollen"”;n:po 
ke4896,n 

148 fort=Bton-1:graphicd, 1:print”k 
oordinaten von punkt ";t+1:input"t 
iefe";1 

158 input”"hoehe”;h:input”breite”;b 
:x=-l:a=g:gosub758:x=-h:a=e:gosub? 
58 

168 x=b:a=i:gosub758:next:h=B 

178 fort=1ton:graphicd, 1:3$="" 

188 print”zu welchen anderen punkt 
en sollen von punkt";t;"linien gez 
ogen werden" 

198 printt;"->":poke282,peek( 282) + 
4:poke285,peek( 285) -1:input"” ";a$: 
ifa$=""then218 

280 pokep+th,t:pokec+h,valla$) :h=h+ 
2:3$="":goto198 

218 next:pokep+th,®B:pokec+h,®:gosub 
998 

228 graphic, 1:print"sind die date 
n korrekt oder sollen aende” 

238 print"-rungen vorgenommen werd 
en j/n":getkeyt$:ift$="n"then53® 
248 gosub1168 

258 print"bei den punkten oder bei 
den linien p/1":getkeyt$:ift$="1" 
then488 

268 graphic, 1:print"koordinaten v 
eraendern/punkt loeschen/neuer pun 
kt v/1l/n” 

278 getkeyt$:ift$="1"then388 

288 ift$="n"then36® 

298 graphic, 1:input”welcher punkt 
";t:t=t-1:a=g:gosub770:1=-x 

308 a=e:gosub778:h=-x:a=i:gosub778 
:b=x 

318 print"alte werte(ti,ho,br)";1, 
h,b 

328 input”neue werte(ti,ho,br)";1, 


<dd> 


<dn> 
<1lk> 


<fg> 


<kl> 


<ı1f> 
<ct> 
<mi> 


<hf> 


<aj> 
<fj> 
<ga> 
<pe> 
<mb> 
<mj? 


<mb> 


<mg> 
<kh> 
<kh> 
<1j> 
<kb> 


<eg> 


ad. 


h,b:x=-1:3=qg:gosub758 

338 x=-h:a=e:gosub758:x=b:a=i:gosu 

b758 

348 print"”weitere punkte korrigier 

en j/n" 

358 getkeyt$:ift$="j"then26B:else2 

28 a 

368 t=peek( 4896) +1:print"”der neue 

punkt hat die nummer ";t:poke4896, 
t:t=t-1 

378 input"tiefe"”;l:input”hoehe”;h: 

input"breite”;b:x=-l:a=q:gosub75R: 

goto33d 

388 graphic, 1:input"welcher punkt 
soll geloescht werden";t:n=peek(4 

096) 

398 gosub798:h=9:gosub839:h=®:gosu 
b1120:g0t0348 

488 graphic, i:print"linien loesch 
en/neue linie/a.oder endpunkt vera 
endern 1/n/v"” 

418 getkeyt$:ift$="1"then47@:elsei 
ft$="v"then498 

428 graphicß, 1:print"”welche linie 
soll hinzugefuegt werden” 

438 input"anfangspunkt";x:input"”en 
dpunkt”;y:h=®8 

448 ifpeek(p+h)<>®then h=h+2:goto4 
48 

458 pokep+th,x:pokec+th,y:pokep+2+h, 
8:pokec+t2+h,® 

468 print"weitere linien korrigier 
en j/n":getkeyt$:ift$="j"then48ß:e 
lse228 

478 input"”anfangspunkt der zu loes 
chenden linie" ;x:input”"endpunkt”;y 
:h=8 

488 gosub878:g0ot0468 

498 graphicd, 1:print"welche linie 
soll veraendert werden:" 

588 input”alter anfangspunkt";x:in 
put"alter endpunkt”;y 

518 input”neuer anfangspunkt";1l:in 
put"neuer endpunkt”;b 

528 h=B:gosub948:goto468 

538 ifpeek( 1016) =2andpeek( 1828) =11 
then558 

548 fort=Bto9B:poke1B15+t,int( sin( 
t*#/ 180) *128+.5) :next 

558 color®, 1:color1,2:graphic1,1:p 

oke1999,1:poke1536, 1:5ys24575 

568 graphicß, 1:fort=1319t01328:pok 

et,8@:next:gosub1168:gosub1398:gra 

phic®ß,1 

57@ print"verzeichnis der daten j/ 

n":getkeyt$:ift$=" j"thengosub99B 

588 gosub116®8:print"daten aendern 

j/n":getkeyt$:ift$="j"then258 


<mo> 
<bb> 


<jb> 


<on> 


<nb> 
<ip> 
<ih> 
<mb> 
<ıf> 
<nd> 
<bd> 
<ei> 
<hf> 
<lo> 


<dm> 


<nn> 
<pf> 


<eb> 
<pa> 


<lk> 


<ml> 
<fh> 


<fb> 
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598 gosub1168:print”"daten abspeich 

ern j/n":getkeyt$:ift$="j"then67@ 

680 gosub116@:print"zurueck zur gr 

afik j/n":getkeyt$:ift$="j"then53@ 

618 gosub1168:print"neue daten lad 

en j/n":getkeyt$:ift$="j"then748 

628 print” bewegungsablaeufe def. 
jJ/n":getkeyt$:ift$="j"thengosub117 

8:g0t0648 

638 gasub1168:print" daten des be 

weg.ablaufs j/n":getkeyt$:ift$="j" 
thengosub 1238 

648 gosub1169:print" beweg.ablauf 
aendern":getkeyt$:ift$="j"then 13 
18 

658 gosub1168:print"programm neu s 
tarten j/n":getkeyt$:ift$="j"then 
run 

668 gosub116B:print"3-d programm b 

eenden j/n":getkeyt$:ift$="j"then 

new:else 578 

678 graphic, 1:print"kassette/disk 

ette k/d":gosub1169:getkeyt$ 

688 ift$="d"thenpoke288,8:elsepoke 

288,1:print"nach spulen taste drue 

cken":getkeyt$ 

698 gosub1169:5sys23384:getkeyt$:gr 

aphicd, 1:g0t0548 

7@8 graphicd, 1:print"kassette/disk 
ette k/d":fort=8t035:next:getkeyt$ 

718 ift$="d"thenpoke288,8:g0t0738: 
elsepoke288, 1 

728 print" sie koennen jetzt spule 
n--danach taste druecken":fort=#t 

0o3®:next:getkeyt$ 

738 fort=8toS@:next:sys28126:graph 
icd,1:g0t0548 

748 gosub979:goto?72d 

758 ifx<@thenx=-x+32768 

768 hb=int(x/256) :1b=x-hb*256:poke 

a+2*t,lb:pokea+t1+2*t,hb:return 

778 1b=peek( a+2*t) :hb=peek( a+i+2*t 

) :x=hb#256+1b:ifx>32767thenx=-( x-3 

2768) 

788 return 

798 forl=tton:pokeq-2+2*#1,peek(qt+2 

#1) :pokeq-1+2*],peek(gq+2*1+1) 

888 pokee-2+2*],peek(e+2*1) :pokee- 
1+2#],peek(e+2*1+1) 

818 pokei-2+2*1,peek(i+2*#1) :pokei- 
1+2%*],peek(li+2*1+1) :next:poke4896, 
n-1 

828 return 

838 p1=peek(p+h) :p2=peek(c+h) :ifp1 

=t or p2=tthenb=h+2:goto858 

840 ifp1=®thenreturn:elseh=h+2:got 

0838 

858 p1i=peek(p+b) :p2=peek( c+b) :poke 


<ei> 
<pa> 


<dl> 


<gd> 


<ig> 


<mi> 


<bb> 


<cg> 


<of> 


<ia> 
<aj> 
<ed> 


<po> 


<mj?> 
<df> 
<np> 
<je> 
<mn> 
<km> 
<km> 
<ff> 
<em> 
<ko> 
<pm> 
<kn> 


<fk> 
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p-2+b,pl:pokec-2+b,p2 

868 ifp1=Bthenh=h+B:goto83B:elseb= 

b+2:g0t0858 

878 pi=peek(p+h) :p2= TREU ifpi 
=®then return 

888 ifpi<>xthen928 

898 ifp2<>ythenh=h+2:g0t0878 

988 pi=peek( p+2+h) :p2=peek( c+2+h): 
pokep+h,pi:pokec+th,p2:ifpi=@then r 
eturn 

918 h=h+2:g0t0988 

928 ifp1<>ythenh=h+2:got0878 

938 ifp2<>xthenh=h+2:g0t087@:else9 
08 

948 pi=peek(p+h) :p2=peek(c+h) :ifp1 
=8thenreturn 

958 iflpi=x and p2=y) or (p2=x and 
pi=y)then pokepth,1:pokec+h,b:ret 
urn 

968 h=h+2:g0oto948 

978 graphic®, 1:input”name des obje 
kts";a$:h=1en( a$) :fort=1toh 

988 poke1638+t,asc(mid$(a$,t,1)):n 

ext:poke1638,h:return 

998 print"daten der punkte oder de 

r linien"”:getkeyt$:ift$="1"then w= 


9:g0t01878 

1888 w=1 

1818 graphicd, 1:print” daten alle 
r punkte" :n=peek( 4896) :t=® 

1828 print:print” punkt tiefe 


hoehe breite” 
1838 fort=®ton-1:y=2*t:a=g:gosub77? 
8:1=-x 
1848 a=se:gosub?778:h=-x:a=i:gosub?? 
8:b=x:print 
1858 printt+1,1,h,b:poke285,peek(2 
85) -1:poke2B1,peek( 281) -1 
1868 getkeyt$:next:gosub116@:graph 
icd, 1:ifw=dthenreturn 
10878 graphic, 1:print” daten aller 

linien":h=® 
1888 printchr$( 17)" 
CCCCC> zu” 
12898 pi=peek(p+h) :p2=peek(c+h) :h=h 
+2:ifp1=®then1118 
1188 poke288,6:poke292,6:printp1;” 
"“‚p2:getkeyt$:goto1898 
1118 ifw=ithenreturn:else1818 
1128 p1=peek(p+th) :p2=peek(c+h) :ifp 
1=8thenreturn 
1138 ifpi>tthenpokep+th,p1-1 
1148 ifp2>tthenpokecth, p2-1 
1158 h=h+2:g0t01128 
1168 fort=8to3®:next:return 
1178 graphic, 1:h=8:print” bewegun 
gen def." 
1188 print” ";h+1;” 


vonGCCCCcG 


„schritt welc 


4 
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he taste?(t.druecken) ":gosub1168 
1198 1b=peek( 198) :iflb=64then1198: 
else iflb=1thenpoke5465+h,255:goto 
1238 

1288 ifpeek( 198)=1bthen 1288:else 
fort=8t09:poke1319+t,@8:next 

1218 iflb=2lorlb=17thenprint" unz 
ulaessig!!!”:goto1188 . 

1228 input” fuer wiev. berechn.";h 
b:poke5465+h,1b:pake5665+h,hb:h=h+ 
1:g0t01188 

1238 graphicßd,1:print” daten der b 
eweg.ablaeufe":h=® 

1248 poke28B8,peek( 5465+h) :ifpeek(2 
88) =255then return 

1258 getkeyt$:sys25658:1b=peek( 288 
) 

1268 iflb=128 thenprinth+1;"” cu 
rsor rechts ",peek( 5665+h) :h=h+1:g 
0ot01248 

1278 iflb=129 thenprinth+1;" cu 
rsor links ",peek(5665+h) :h=h+1:g 
oto1248 

1288 iflb=131 thenprinth+1;" cu 
rsor unten ",‚peek(5665+h) :h=h+1:g 
oto1244 

1298 iflb=138 thenprinth+1;” cu 
rsor oben " peek( 5665+h) :h=h+1:g 
0t01248 

1388 printh+1;" ";chr$( 1b) ,‚peek 
(5665+h) :h=h+1:g0t01248 

1318 graphicß, 1:print” beweg.ablae 
ufe aendern"”:h=B:gosub 1238 

1328 print” der wievielte progr.sc 
hritt soll":print” geaendert werd 
en” 

1338 inputh:print" neuer schritt": 
fort=1319t01328:poket,@:next:a=pee 
k(5464+h) 

1348 gosub1168:1b=peek( 198) :iflb=6 
4then1348 

1358 gosub116B:ifpeek( 198) =1btheni 
358:elsefort=1319t01328:poket,@:ne 
xt 

1368 input” anzahl der berechnunge 
n";hb:poke5464+h,1b:poke5664+h, hb 
1378 ifa=255thenpokeS5465+h, 255 
1388 print” noch mehr aendern j/n" 
:getkeyt$:ift$="j"then 131@:else 5 
78 

1398 q=4897:e=4353:1=4689:p=4865:c 
=4866:return 


<ao> 


<gg> 
<fe> 


<fm> 


<lp> 
<co> 
<hj> 


<fp> 


<nd> 


<pj? 


<op> 


<lc> 
<bj> 


<hk> 


<eb> 


<cg> 


<ii> 


<ce> 


<gi> 
<dh> 


<cd> 


<mn> 


GRAFIX.CBM=======================94 
(p) COMMODORE WELT TEAM 


{c) by Frank Koster 


Plus4 (C16/116 + 64 KB) 


Das Programm ist mit dem Naschinen- 
sprachmonitor TEDMON unter Zuhilfe- 
nahme des Pruefsummenprogrammes 
CHECKMON einzugeben und auf Disket- 
te mit s"grafix.cbm",8, 1988, 1888 
abzuspeichern, auf Kassette mit 
s"grafix.cbm",1,1909,1898. 


>1828 BO 70 BB 78 Bm 28 DR BB :<ci> 
>1030 Ba 24 80 24 BR HR BR 22 :<708> 
>1038 Ba 48 BD AD DB 22 Bm BB :<A7> 


>10a6 BB FF Du FF BB fr BB FF :<b6> 
>iIBbB BB FF BB Fr Bm FF BO FF :<c6> 


>10b8 UB8 FF a8 ff BB FF BB FF :<d6> 
>1BcBh BB FF BB Fr va Fr 00 Fr 
>10c8 BB ff DB FF om FF BB FF :<Ff6> 
>1Bda Ba FF B0 Fr Ba FF Ba FF :<B7> 
>10dB BB FF DB Fr Ba Fr 88 FF :<17> 
>1BeB Ba Ff DB fr BB FF 88 FF 
>1Be8 BB ff Du FF B8 FF OB FF :<37> 
>iBre un FF Dun FF Da FF 88 Fr 
>i0rf8 BB FF Da FF Dan FF BB Bi :<57> 
>1180 B1 a2 88 72 88 78 80 78 :<87> 
>1108 88 32 88 32 BB 78 89 78 :<c2> 
»1110 08 72 BB A2 BB AB BB 48 
>1118 BB 2c BR 2c 80 AB 80 AB :<ff> 
>1128 BD 42 80 72 88 78 BB 78 :<cB> 
>1128 88 32 88 32 BB 78 BB 78 :<B2> 
>1138 BB 72 BB a2 Bm AB Bm 48 
>1138 BB 2c BB 2c 898 48 80 48 :<3e> 
>1140 88 38 BR 38 BU HB BR 988 :<6a> 
>1148 88 38 88 38 88 88 808 88 :<3a> 
>1150 80 98 DO DUB BB 38 BB 38 :<a5> 
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>1158 
>1168 
>1168 
»-1178 
>1178 
>1188 
>1188 
>1198 
>1198 
>1138 
>1138 
>11b8 
>11b8B 
>11cQ 
>11c8 
>11d® 
>11d8 
>11e8 
>11eB 
>11f8 
>11Ff8 
>1298 
>1288 
>1218 
>1218 
>1228 
>1228 
>1238 
>1238 
>1248 
>1248 
>1258 
>1258 
>1268 
>1268 
>12708 
>1278 
>1288 
>1288 
>1298 
>1298 
>1238 
>12a8 
>12b® 
>12b8 
>12c8 
>12c8 
>12d8 
>12d8 
>12e0 
>12e8 
>12f®8 
>12F8 
>1388 
>1308 
>1318 
>1318 
>1320 
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IGRAFIX-BEWEGUNG IN 3D a = 


>1af8 
>1588 
>1588 
>1518 
>1518 
>1528 
>1528 
>1538 
>1538 
>1548 
>1548 
>1558 
>1558 
>1568 
»>1568 
>1578 
>1578 
>1588 
>1588 
>1598 
>1598 
>15a8 
>1538 
>15b® 
>15b8 
>15c8 
>15c8 
>15d8 
>15d8 
>15e8 
>15e8 
>15fB 
>15Ff8 
>1688 
>1688 
>1618 
>1618 
>1628 
>1628 
>1638 
>1638 
>1648 
>1648 
>1658 
>1658 
>166®8 
>1668 
>1678 
>1678 
>1688 
>1688 
>1698 
>1698 
>1630 
>16a8 
>16bB 
>16b8 
>16c8 


1 
ff 
FF 
fr 
FF 
ff 
FF 
ff 
ff 
Fr 
ff 


"Fr 


ff 
ff 
FF 
FF 
FF 
ff 
ff 
1; 
ff 
fr 
ff 
ff 
FF 
ff 
FF 
FF 
ff 
FF 
FF 
ff 
01 
ff 
1; 
ff 
ff 
ff 
FF 
ff 
fr 
ff 
ff 
fr 
FF 
FF 
fr 
Fr 
ff 
fr 
ff 
ff 
FF 
fr 
ff 
ff 
FF 
fr 


:<5b> 
ı<3b> 
:<7a> 
:<Ba> 
:<9a> 
:<aa> 
:<ba> 
:<ca> 
:<da> 
:<ea> 
:<fa> 
:<8b> 
:<36> 
ı<2b> 
ı<3b> 
:<4b> 
ı<5a> 
ı<6b> 
ı<7b> 
:<8b> 
:<9b> 
:<ab> 
:<bb> 
:<cb> 
:<db> 
:<eb> 
:<fb> 
:<ßc> 
:<ic> 
:<2c> 
:<3c> 
:<4Ac> 
:<5c> 
:<3c> 
:<?7b> 
:<8b> 
:<9b> 
:<7B> 
:<bb> 
:<cb> 
:<db> 
:<eb> 
:<fb> 
:<Bßc> 
:<ic> 
:<?c> 
:<3c> 
:<äc> 
:<5b> 
:<6c> 
:<I7c> 
:<Bc> 
:<9c> 
:<ac> 
:<bc> 
:<cc> 
:<dc> 
:<ec> 


Fortsetzung von Seite 37 


GESCHWINDIGKEITS-STEIGERUNG 


Die Rechengeschwindigkeit im L-Modus kann erhöht 
werden, wenn der zu löschende Bereich des Grafik- 
bildschirm verkleinert wird. Dies kann geschehen 
durch: 

POKE DEC(‘“6D45°“),HA 

POKE DEC(“‘6D26‘),HE 


Mit HA sei hierbei das Highbyte der Adresse, ab der 
gelöscht werden soll, bezeichnet. HE sei das High- 
byte der Adresse, bis zu der gelöscht werden soll. Es 
ist zu beachten, daß HA größer oder gleich 20 zu sein 
hat und HE kleiner gleich 63. D 
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Ge ne LSTINGSE 


HANDELSREISE 


Schauplatz ist England im 18. Jahrhundert. Sie be- 
sitzen ein Handelschiff, jedoch auch einen Berg von 
Schulden. Wenn Sie eine glückliche Hand bei ihren 
Transaktionen haben, erwartet Sie das große Geld, 
ansonsten der Ruin. ß 

Ihr Schiff kann in fünf verschiedene Häfen einlau- 
fen, wo Sie Ihre Ware ein- und verkaufen können. Im 
Heimatort “Swansee” haben Sie Ihr Bankkonto mit 
mehreren tausend Pfund Schulden aufgrund des 
Schiffkaufes. Um Ware zu kaufen, sollten Sie noch ei- 
nige tausend Pfund aufnehmen. Doch vergessen Sie 
nicht, je höher die Schulden, desto mehr wachsen die 
Zinsen. Bei 25.000 Pfund wird Ihr Schiff samt La- 
dung gepfändet. Wenn Sie genügend Gewinn gemacht 
haben, gilt es, schnellstens die Schulden zu tilgen. Sie 
leben vom Handel. Dieses bedeutet, Ware billig einzu- 
kaufen und woanders teuer verkaufen. Jedoch ist die- 
ses auch mit Risiko verbunden. Auf dem Meer lauern 
Piraten und Stürme, welche Ihnen Ihre Ladung ab- 
spenstig machen wollen. 

Schiffsreparaturen kosten Ihr Bargeld. Glücksspiele 
in Kneipen bringen Ihnen Gewinn oder Verlust. Je- 
doch gibt es auch günstige Gelegenheiten: Gönner 
zahlen für Sie einen Teil Ihrer Schulden. Handel mit 
fremden Schiffen bringt Ihnen ganz schön etwas ein, 
doch Vorsicht, es könnten auch Piraten sein. Sicher- 
heit vor ihnen haben Sie durch Black Jacks Kanone, 
doch dürfen Sie diesem ein ordentliches Simmchen 
dafür berappen. Haben Sie es geschafft, sich ein Ver- 
mögen von 800.000 Pfund anzusammeln, dürfen Sie 
sich zur Ruhe setzen. 


Variablenbedeutung: 
RU = Anzahl der Runden 
G = Guthaben 
36 = Schulden 
LP = Ladeplatz 
Ä = Allgemeines 
W = Waffen 
K = ° Kohle 
R = Rum 
E = Edelsteine 
KE = Kanone (nicht-)vorhanden 
P(1-5) = Preisfestsetzung 
=  Preisberechnung 
XG =  x-mal geliehen . 
LI = Limit 
SES = Städte 
s$ = Standort 
X = Anzahl der Verletzten 
TR = _ Verlust durch Trickbetrüger 
GV = _Gewinn/Verlust bei Glücksspiel 
GZ = _ Gewinnzahl 
PK = Preis der Kanone 
VD = Verdienst durch Geschäft mit Kapitän 
des fremden Schiffes 
GR =  Schuldnachlaß durch Gönner 
MR = Kosten der Mastreparatur 
SR = Kosten der Segelreparatur 
RR = Kosten der Rumpfreparatur 
GR = Gesamtkosten der Reparatur 
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DIE GROSSE HANDELSFAHRT = 


98 
128 
118 


rem handelsfahrt =====plus4 
rem (p) 7/87 commodore welt 
rem ====================5=== 
rem (c) 1986 by 

rem claus-d. heineck 
rem 


rem basic v3.5 

rem plus4 (c16/116 + 64kb) 
rem ================ === ===> 
gosub 5758 
fori=1to22:qq$=qy$+tc4$:nex 


t:qq$=qqa$+chr$( 27) +"q"ıql$="" 


128 
138 


fori=1t0?7:q1$=ql$+c1$:next 
printchr$( 14) :senclr:color 


2, 18, 37601074, 15; 83: colorT;,8 


148 
SE" 
158 
=25 
168 
178 
eck 
188 
n N 
198 
2008 
218 
220 
238 
248 
258 
268 
278 
288 


290 
308 
318 


printtab( 128) "DIE"s2$"GROS 
s2$"HANDELSFAHRT 

BIIRE "Je 25258 "sıxx$=zn$:zz 
:g0osub572®8:print 
printtab( 135) "Written by" 
printtab(52)"Claus-D. Hein 
printtab(248)" "rn$fl$"Dei 
ame"fo$;rf$ 

print 

inputne$ 

forx=1t01B88:next 
gosub554P 

ru=® 

e=18*int(rnd( 1) #92) 
ifg<35Bdorg>758then248 
sc=188*int(rnd( 1)*108) 
ifsc<488Borsc>9B828then268 
a=B:w=8:k=Bd:r=d:e=B:ru=ß:l 


p=-50:ke=B:xg=9:se$="1" 
gosub5452 
gosub5348 
printhe$ 
printtab( 248) :printtab( 248 


358 


printtab(48) fFl$"Druecke"fo 
ea a a re ar aa Preise:" 


Allgemeines £" 


362 print"2 fuer Verk......... 
Waffen...... Ei 
378 print"3 fuer Segeln....... 
Kohle. as: £" 
388 print"”4 Fuer Bank-.......%+ 
RÜm.z.ase 5 &. 
395 print”... #. Besuch. ...,--- 
Edelsteine..£" 


488 
418 
420 
438 
440 


printtab(88)chr$(27)"q" 


printhe$ 

printtab( 131) ;s$ 
printtsab( SI) "...-«s- "al$;g 
printtabl 53)". ..-.%: "left$( 


<lg> 
<pk> 
<ci> 
<lo> 
<mp> 
<ml> 
<cd> 
<dl> 
<ge> 
<mc> 


<gp> 
<gm> 


<pi> 
<cb> 


<ol> 
<ck> 


<ei> 


<kc> 
<fh> 
<ae> 
<kp> 
<dh> 
<gp> 
<eo> 
<ji> 
<ak> 
<kg> 


<bj> 
<ho> 
<ig> 
<ib> 


<hb> 


<gg> 
<lg> 


<bn> 
<kh> 
<mg> 
<gh> 
<lm> 
<he> 
<of> 


<fb> 
<ed> 


ql$,6) ;sc 

458 printtab(51)"...."left$lql 
$,4);1p 

468 printhe$ 


470 print tab 232) "5: EIKE IFKE 
1$;3 

488 printtab(32)"”...."c1$c1$c1 

$;w 

492 printtab(32)"...."c1$c1$c1 

$;k 

SaB printtab(32)"...."c1$c1$c1 

$;.r 

518 printtab( 32)"...."e1$c1$c1 
‚e 


528 printtab( 233) ;p(1) 

538 printtab( 33) ;p(2) 

548 printtab(33);p(3) 

558 printtab(33);p(4) 

568 printtab(33);p(5) 

578 printhe$ 

588 printtab(24B) :printtab( 242 


598 printtab(4A4B)fl1$"Druecke"fo 
688 printtab(48)"1 Fuer Kaufen 
618 print"2 fuer Verk..." 


628 print"3 fuer Segeln " 
638 ifse$>"1"thengoto 5518 


648 print"4 fuer Bank-.." 

850 BEINE" 35 185% besuch " 

660 rem printtab(8B8)"... 
670 getd$ 


6808 ifse$>"i1"andd$>"3"then67® 
698 ifd$="1"andlp>®then?428 

7088 ifd$="2"andlp<5Sßthen 12882 
718 ifd$="3"then1668 

28 ifd$="4"then1923® 

738 g0t0678 

748 printhe$ 

758 printtab( 242) :printtab( 242 


768 printtab(42) "Was willst Du 


78% BEINE” 53 28 8a Beer 2 


838 ifk$<>"a"andk$<>"w"andk$<> 
"K"andk$<>"r"andk$<>"e"then82® 
8480 ifk$="a"thenp=p( 1) 
852 ifk$="w"thenp=p(2) 
868 ifk$="kK"thenp=p( 3) 
878 ifk$="r"thenp=p(4) 
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1118 
1128 
1138 
1148 
2) 
1158 
en" 
1168 
ka;" 
1178 
1188 
1190 
1208 
1218 
8) 
1228 
er 
1238 
12482 
1258 
1268 
12782 
1288 
1298 
a a 


30 


ifk$="e"thenp=p(5) 
printhe$ 
printtab( 248) :printtab( 248 


printtab(48) "Wieviel wills 
printtsb(4B8) "Du kaufen ?.. 


printtab(4B)" 


pBrinttabl 160) "aan une 
printhe$:printgqq$; :inputka 
ifka>58then898 
ifka>lpthengosub1132 
iflka#*p)>gthen 1978 


g=g-(ka*p) 

lp=1p-ka 
ifk$="a"thena=atka 
ifk$="w"thenw=w+ka 
ifk$="kK"thenk=k+tka 
ifk$="r"thenr=r+ka 
ifk$="e"thene=e+tka 
goto312 

printhe$ 
printtab( 248) :printtab( 24 
printtab(48) "Du hast nich 
printtab(48)"genug Geld ! 
forx=1t01588:next 

g0t08982 

printhe$ 
printtab( 248) :printtab(24 
printtab(40)"Du hast kein 
printtab(48)"Platz fuer"; 
1 

printtab( 168) 
forx=Bto15P8:next 

goto890d 

printhe$ 
printtab( 248) :printtab( 24 
printtab(48)"Was willst D 
printtab(48)"verkaufen ?. 
BEINE zucchini a 
print"(a/w/k/r/e).." 
PELMET as ern ins # 
PTINT Fear ® 
getv$ 
ifv$<>"a"andv$<>"w"andvß< 
andv$<>"r"andv$<>"e"then!2 


<ch> 
<mh> 


<lh> 


<bc> 


<hc> 


<dg> 


<hd> 
<cc> 
<di> 
<ck> 
<kc> 
<kf> 
<am> 
<dh> 
<id> 
<gk> 
<ij> 
<gm> 
<ef> 
<hm> 


<gm> 
<bc> 


<om> 
<dm> 
<io> 
<li> 


<ki> 
<jc> 


<dn> 
<jc> 
<ib> 
<ne> 
<po> 


<oo> 
<di> 


<cb> 
<ap> 
<kg> 
<cd> 
<eon> 
<ca> 


<om> 


13900 
1318 
1320 
1338 
1348 
13582 
1360 
2) 
1378 
st" 
1388 
a" 
1398 
1408 
1418 
n 
14208 
1430 
1448 
1458 
1460 
1478 
1480 
1498 
1500 
1518 
15208 
1538 
1548 
1558 
1568 
1578 


—D2— 
ifv$="a"thenp>=p(1) <na> 
ifv$="w"thenp=p(2) <pb> 
ifv$="kK"thenp=p(3) <pa> 
ifv$="r"thenp=p(4) sac> 
ifv$="e"thenp=p(S5); <aa> 
printhe$ <jf> 
printtab( 248) :printtab(24 

<if> 
printtab(42) "Wieviel will 

<oa> 
printtab(42)"Du verkaufen 

<hf> 
printtaebl 40°. „era: 

<ae> 
PRINERSBL IED) "altes 

<bd> 
printhe$:printgqq$; :inputv 

<ai> 
ifvn>58then 1350 <eg> 
ifv$="a"andvn>athen 1579 <ja> 
ifv$="w"andvn>wthen 15782 <mg> 
ifv$="kK"andvn>kthen 1578 <li> 
ifv$="r"andvn>rthen 1578 <na> 
ifv$="e"andvn>ethen 1572 <ma> 
letg=g+(p*vn) <da> 
letlp=1p+tvn <jh> 
ifv$="a"thena=a-vn <eh> 
ifv$="w"thenw=w-vn <jd> 
ifv$="kK"thenk=k-vn <hj> 
ifv$="r"thenr=r-vn <ji> 
ifv$="e"thene=e-vn <hm> 
ifg>=808022808then5138 <ob> 
goto31® <dl> 
printhe$ <hc> 
printtab( 248) :printtab( 24 

<gc> 
printtab(48)"Du hast kein 

<po> 
printtab(48)"....an Bord 

<gc> 
printhe$ <jk> 
printtab(248) :printtab( 24 

<ik> 
printtab( 128) ;vn <dl> 
forx=8to1588:next <ep> 
goto1358 <mk> 
letru=sru+1 <of> 
letxg=® <jf> 
printhe$ <osa> 
printtab( 248) :printtab( 24 

<na> 
printtab(48) "Stsedte:.." <nh> 
printtab(48)"1.Swansea... 

<gk> 
print"2,Liverpsol " <dh> 
BEIHE"IILONTÄR: ar j <dg> 
print"4.Newcastle " <dh> 
print"5.Southampton" <po> 
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1760 
1778 
1788 
8 

1798 


print 
getse$ 
ifse$<"1"orse$>"5"then177 


ifsg=" 


1 


Swanses"andse$= 


then 1770 


1888 
1810 
878 

1828 


gosub5458 
ifru=-Sorru=ißorru=15then4 


ifrnd( 1)>.22andrnd( 1) <.3t 


hen 3528 


1838 
1848 
then 
1858 
then 
1868 
then 
1878 


ifrnd( 
ifrnd( 
4480 
ifrnd( 1)> 
2538 
ifrnd( 1)> 
3298 
ifrnd( 1)>. 


1)<.15then 42582 
1)>.55andrnd( 1)<.65 


.45Sandrnd( 1)<.55 
.35Sandrnd( 1)<.45 


88 and sc>® the 


n 4718:else1818 


1888 
1898 
1908 
1918 
1928 
1938 
0) 

19408 
1. * 
1958 


en oder 


1968 
19782 
1988 
1998 
20208 
2018 
2028 
2818 
28308 
2840 
2858 
2068 
2) 

2978 
st =" 
2988 


Nass: 


2090 
e1828 
2118 
u 

21208 
2138 
2148 
2158 


gosub55482 
letsc=int(1.12*sc) 
ifsc>=252288then5652 
goto3a0 

printhe$ 
printtab( 248) :printtab( 24 


printtab(42) "Willst Du Ge 


printtab(48)fl$"1"fo$"eih 
"£F1$"zZ"fFog$"u-" 
print" 


print" 
PPrInE" ss ass er 
Brinttabl BO) "a: =: 0:0 . 
getlz$ 
iflz$<>"]l"andlz$<>"z"then 


iflz$="l"andxg>®then2168 
iflz$="l"then2268 
printhe$ 
printtab( 248) :printtab( 24 


printtab(48) "Wieviel will 
printtab(48)"Du zurueckza 
printtab(42)"len ?....... 
printtaebl 160)". cms aiesn 
REETERG TESTEN 
ifzu>g orzu>scthen2258 
letsc=sc-zu 


letg=g-zu 
goto3i®d 


<hp> 
<en> 


<hf> 


<jg> 
<gk> 


<if> 


<jp> 
<ko> 


<ph> 


<pj?> 
<af> 


<ng> 
<]lk> 
<ed> 
<gf> 
SD 


<nb> 
<mb> 
<lm> 


<bh> 
<ba> 
<bb> 
<ce> 
<co> 
<1E> 
<em> 


<bj> 
<c]l> 
<ah> 
<fe> 
<ee> 
<jp> 
<bb> 
<cj> 
<aa> 
<nc> 
<jg> 
<bk> 


<ig> 
<il> 


" 


3,4:60107 1,8 


zauxı 
Dr er 


—_— 
printhe$ <mc> 
printtab( 242) :printtab( 24 

<lc> 
printtab(48)rn$"Du kannst 
DER” u” <je> 
printrn$"Fahrt nur ein-"r 
- <ig> 
printrn$"mal leihen !.."r 
<ki> 
DREI nern e <dj> 
BEINE seems nk ” <ed> 
printtab( 1282) <1lg> 
forx=8t02Q00®%:next <kf> 
goto31®2 <op> 
printhe$ <cg> 
printtab( 242) :printtab( 24 
<bg> 
printtab(42) "Wieviel will 
<hb> 
printtsb(42) "Du leihen ?. 
<pk> 
PrIHEtebl AN)" area ass 
<gh> 
printtab( 122) <ah> 
letxg=xg+1 <gm> 
printhe$:printgqgq$; :inputl 
<jb> 
letli=18B8*int(rnd( 1)*58B) + 
<pi> 
ifli<1888then2348 <dl> 
ifle>lithen2488. <ba> 
letsc=sc+le <om> 
letg=gtle <fI> 
goto31® <hm> 
printhe$ <ld> 
printtab( 242) <go> 
printtab( 240) <hi> 
printtab(482)"Das Limit is 
<nl> 
printtabl 40) "2; . 3545: lv sz% 
<ed> 
printhe$ <of> 
printtab( 248) <ka> 
printtab( 24®) <kk> 
pPrinttadsl 321) 328 <Te> 
letsc=sc+li <gi> 
letg=gtli <ne> 
forx=Bto178%:next <1lk> 
goto312 <po> 
scenelr:color4,3,4:color®, 
<kn> 
2548 printtab( 248) <pa> 
2558 printtab( 129) "*#** P"s2$"I 
"s2$g"A"s2$"A"s2$"T"s2g"E"S2$"N 
<gb> 
2568 getkeya$ <aj> 
2578 ifke=-1then2852 TS 
2588 ifrnd( 1)>.5then321® <gh> 
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2590 
2608 


iflp=58then2738 

scnclr 

2618 printtab( 242) 
2628 printtab( 138) "Piraten hab 
en uns" 

2630 printtab(5B) "ueberfallen 
und die" 

2648 printtab(5B) "ganze Ladung 
an sich" 

2658 printteb(58) "genommen." 
2660 getkeya$ 

2678 letlp=58 

2688 leta=® 

26980 letw=® 

2708 letk=® 

2718 letr=2 

2720 lete=® 

27380 scnclr 

2748 letx=int(rnd( 1)*18) +3 

2758 printtab( 258) "Waehrend de 
r Schlacht" 

2760 printtab(58) "sind";x;"Dei 
ner Mann-" 

27978 printtab(58) "schaft verwu 

ndet wor-" 

2788 printtab(58)"den.Die Heil 
ung durch" 

2798 printtab(5®) "einen Doktor 
kostet" 

2808 printtab(582) "Dich je Verl 
etzten £75." 

2818 getkeyaß 

2828 letg=g-75%x 

2830 ifg<Qthen39?» 

2848 g0t01888 

2858 scnclr 

2868 printtab( 242) 

2878 printtab( 132) "Deine Manns 
chaft be-" 

2888 printtab(5B) "nutzt die Ka 
none vom" 

2898 printtab(58)"schwarzen Ja 

= 

2988 
29189 
2928 


getkeyaß$ 

scnelr 

ifrnd( 1)>.3then39d9d 

29380 printtab( 2402) 

2948 printtab( 138) "Die Kanone 
ist leider" 

2958 printtab(52) "kaputt !" 
2960 getkeyaß 

2978 scncelr 

2988 letke=® 

2998 g0t02612 

3888 printtab( 240) 

3818 printtab(90)"Die Kanone h 
at das" 

3828 printtab(58) "Piratenschif 


<nj> 
<bk> 
<dh> 


<gk> 


<dm> 


<mo> 
<pg> 
<on> 
<]ld> 
<con> 
<en> 
<el> 
<fm> 
srt3j> 
<jm> 
<hn> 


<hl> 
<co> 
<im> 
<en> 
<jk> 


ETI® 
<ad> 
<pc> 
<dp> 
<hn> 
<bf> 
<dc> 


<hk> 
<po> 


<np> 
<fo> 
<fb> 
<1lh> 
<hi> 


<ph> 
<jj?> 
<jk> 
<in> 
<kj> 
<al> 
<lo> 


<co> 


f ver-" 

32380 printtab(58) "senkt !" 
3848 printtab(52)"(Gut gemacht 
‚Jyungs!)" 

30858 getkeyaß 

30628 g0t01888 

3878 scnelr:color4,1:color®,1: 
solorT,N 

3888 printtab( 130)"Da Du nicht 
genuegend" 

3898 printtab(58) "Geld hattest 
‚den Dok-" 

3188 printtab(58)"tor zu bezah 
len,hat" 

3118 printtab(58) "Deine Mannsc 
haft ge-" 

3128 printtab(52) "meutert und 
das Schiff" 

3138 printtab(52) "verkauft, um 
die Rech-" i 


3148 printtab(5®)"nung bezahle 
n zu koen-" 

3180 printtobt SW "nen... su. 
3168 printtab(92)"Nimm’s leich 
EI 

3178 getkeya$ 

3188 scnclr 

3198 printtab( 255) "E"s2$"N"s2$ 
"DSDE"tE" 


3282 g0t05268 

3218 scnclr 

3228 printtab( 242) 

3238 printtab( 138) "Die Piraten 
haben" 

3248 printtab(52) "nicht angegr 
iften," z 

3258 printtab(5®8)"und du kanns 
t wei-" 

3268 printtab(58) "fahren !" 
3270 getkeya$ 

3288 g0t01882 

3298 sencelr:color4,6,3:color®, 
6,3:60o0Jlor'T.,B 

33808 printtab( 242) 
3318 printtab(211)"*** 
"s2$"U"s2$"A"sa$"M"s2g" ir" 
3328 getkeyaß 

3338 ifrnd( 1)>.Sorlp=58then345 

[a] 
3348 scnelr 

33580 printtab( 242) 

3368 printtab(90) "Ein Sturm is 
t aufge-" 

3378 printtab(5B2) "kommen,und w 
ir mues-" 

3388 printtab(5B)"sen ueber di 
e Haelfte" 
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<ef> 
<jf> 


<ah> 
<pe> 
<fj> 
<a3> 
<hh> 
<hd> 
<cm> 
<eb> 
<gc> 
<cl> 
<oi> 
<if> 
<hn> 
<en> 
<ga> 
<kk> 
<oc> 
<ho> 
<jl1> 
<ck> 
<ia> 
<eon> 
<kl> 
<nb> 


<dg> 


<km> 
<ol> 


<op> 
<ad> 


<mb> 
<ab> 
<bo> 
<dl> 


<hi> 


<pd> 


7 
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3398 
eber 
3408 


printtab(58)"der Ladung u 

Bord" 

printtab(58)"werfen ! 

hade drum)" 

3418 1p=1p+(a-int(a/2))+(lw-int 

(w/2))+Ck-int(kK/2))+Cr-int(r/2 

))+Ce-int(e/2)) 

3428 getkeya$ ? 

3438 a=sint(a/2) :w=sint(w/2):ksi 

nt(k/2) :r=int(r/2) :e=sint(e/2) 

3448 g0t01888 

3458 scnclr 

3468 printtab( 242) 

3478 printtab( 92) "Der 
t sofort" 

3488 printtab(5B) "aufgehoert „, 
und du" 

3498 printtab(5®8) "kannst weite 
rfahren." 

3508 getkeya$ 

3518 g0ot0o1888 

3528 senclr:color@, 18,3:color4 

s 190,9:C010F1, 1 

3538 printtab( 242) 

3548 printtab( 125) "***# L A'"s2$ 
"N D"s2$"A"S2$"U"S2$"S"S2$"F"s 

EeH"L"S2OH$"U"S2H"G"SAK" RR" 

3558 getkeyaß$ 

3568 ifrnd( 1)>.5then3848 

3578 ifr>®then3?752 

3588 tr=int(rnd( 1) *3192) 

3598 iftr<588then3582 

3688 scnclr 

3612 printtab( 25P) "Waehrend ei 
nes Land-" 

3620 printtab(5B) "ausflugs hab 

en Dir" 

3638 printtab(5B) "Trickbetrueg 
en £*TEr 

3648 printtab(5B) "abgenommen |! 

3658 
3668 
3678 


(sc 


Sturm ha 


getkeya$ 

g=g-tr 

ifg<dthen3692 

3688 g0t01888 

3698 scnelr:color4,1:color®,1: 
color1,2 

3788 printtab( 2582) "Du bist jet 
zt pleite" 

3718 printtab(5®8) "und musst di 
e Reise" 

3728 printtab(5B) "beenden 
3738 getkeyaß“ 

3748 g0t0o316®8 

3758 scenclr:printtab( 258) "Waeh 
rend Du einen" 

3768 printtab(5B) "Landausflug 
gemacht" 


rer" 


<ij> 


<hm> 


<pe> 
<gi> 


<ec> 
<nh> 
<gp> 
<im> 


<nn> 
<ej?> 


<do> 
< 13:5 
<bn> 


<oc> 
<nc> 


<cJ> 
<ok> 
<eh> 
<dd> 
<be> 
<ae> 
<ag> 


<hg> 
<gh> 
<cj?> 
<eo> 
<ep> 
<ol> 
<jc> 
<mi> 
<ha> 
<gb> 
<oh> 
<pi> 
<jp> 
<pn> 


<gm> 


<hl> 


3778 printtab(58)"hast „, 
Deine" 

3788 printtab(5®) "Matrosen den 
ganzen" 

3798 printtab(502) "Rum ausgetru 
nken 
3808 
3818 
3828 
3830 


haben 


y" 


getkeya$ 

lp=1p+r 

r=® 

goto1882 

3848 scnclr 

3858 printtab( 252) "Waehrend ei 
nes Land-" 

3868 printtab(5B) "ausflugs kom 

mst Du" 

38978 printtab(5®B)"an einer Kne 
ipe vor-" 

3888 printtab(58)"bei und gehs 
t hinein." 

3898 getkeya$ 

3982 scnclr 

3918 printtab(25P) "Du wirst zu 
einem" 

3928 printtab(582) "Gluecksspiel 
sufge-" 

3938 printtab(582) "fordert." 
3948 printtab(5®) "Machst Du mi 
E 9" 
3958 
3968 
3958 
3978 
3988 
3998 
4208 
40810 
4920 
chen den" 

42838 printtab(58) "Zahlen 
Lu 1 u > ee 5 

4048 printtab(50)"Ist es 
ichtige" 

4058 printtab(58)"Zahl , 
nst Du ;" 

4068 printtab(5®B) "ist es 
alsche ,‚" 

4078 printtab(52)"verlierst Du 
40808 
40890 
4100 
4118 
4120 


getmm$ 
ifmm$<>" j"andmm$<>"n"then 


ifmm$="n"then1888 
gev=-int(rnd( 1) *190100) 
ifgv<19022then3982 
gez=-int(rnd( 1)+1.5) 

scnclr 
printtab( 178) "Waehle zwis 


ME u 
die r 
gewin 


die f 


getwn 
ifwn<>1andwn<>2then4282 
ifwn<>gzthen417?8 

scnclr 

printtab(250) "Du hast ric 
htig gera-" 

4138 printtab(58)"ten und somi 
et. EN SoM 

4148 printtab(58) "gewonnen !" 
4158 getkeya$ 


<hf> 


<gd> 


<bl> 
<örf> 
<ng> 
<co> 
<fo> 
<ph> 


<eh> 
<ip> 
<jn> 
<ga> 
<e3> 
<dd> 
<ge> 


<an> 
<1l1> 


<ad> 
<nm> 


<jin> 
<jg> 
<ml> 
<1lm> 
<id> 
<kb> 


<hm> 
<ce> 
<30> 
<in> 
<hf> 
<ak> 
<ef> 
<cl> 
<1lm> 
<ag> 
<ah> 
<mo> 


<mm> 
<ef> 
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4168 g=g+gvV:g0oto1888 

4178 scnclr 

4180 printtab( 250) "Du hast fal 
sch gera-" 

4198 printtab(58)"ten und somi 
e EV 

4288 printtab(58) "verloren !" 
42180 getkeyaß 

4220 g=g-gv 

4238 ifg<dthengoto3698 

4248 g0t01888 

4258 pk=int(rnd( 1) *191900) 

4268 ifpk<10Q8Q8then4258 

4278 scncelr:color4,1:color®,1: 
color1,2 

4280 printtab( 240) 

4290 printtab( 127) "*** DER"S2$ 
"SCHWARZE" sS2$"JACK"s2g" ware" 
4300 getkeyaß$ 

4318 scnclr 

4328 printtab( 258)" "Schwarzer 
Jack’ bie-" 

4338 printtab(58)"tet Dir eine 
Kanone" 

4348 printtab(58) "zum Schutz v 
or Pira-" 

4358 printtab(58)"ten an." 
4368 printtab(58)"Sie kostet £ 
Yun; # 

4378 printtab(58) "Willst Du ei 
ne ?" 
43808 
4398 
4388 
44008 
44108 
44208 
4430 


getkk$ 
ifkk$<>"j"andkk$<>"n"then 


ifkk$="j"andg<pkthen4458 

ifkk$="n"then 1888 

ke=1 

g=g-pk 

4440 g0ot0o1888 

4458 printtab(98) "Du hast zuwe 
nig Geld !" 

44680 getkeya$ 

4478 g0t01888 

4488 scenclr:color4,2:color®,2: 
eolor?T,f 

4498 printtab( 248) :printtab( 12 
B)TRRRUTSZOS"SCHIFF"S2$"IN"S2$"S 
ICHT"s2g" zur" 

4500 getkeyaß 

4518 scnclr | 5 

4528 printtab( 252) "Willst Dun 
aeher an" 

4538 printtab(58) "das gesichte 
te Schiff" 

4548 printtab(58)"heranfahren 

a" 

4558 gethf$ 

4560 ifhf$<>"j"andhf$<>"n"then 


<gl> 
<ec> 


<xok> 


<ak> 
<be> 
<ib> 
<be> 
<en> 
<pk> 


. <ni> 


<ma> 


<lg> 
<md> 


<ld> 
<nl> 
<mo> 
<en> 


<lb> 


<dp> 
<ma> 


<eb> 


<3aj?> 
<ii> 


<ed> 
<ho> 
<em> 
<mi> 
<of> 
<md> 


<le> 
<hm> 
<ob> 
<ik> 
<3aj?> 
<ke> 
<jh> 
<ld> 


<mb> 


<dm> 
<ck> 


4558 
4578 
4588 
4598 
4600 


ifhr$="n"then18882 

ifrnd( 1)>.5then2538 

vd=int(rnd( 1)#10108) 

ifvd<1880then459® 

4618 scnclr 

4628 printtab( 258) "Es ist ein 
englisches" 

4632 printtab(52) "Handelsschif 
ar 

4648 printtab(58) "Du machst mi 
t dem Ka-" 

4658 printtab(5B)"pitaen ein G 
eschaeft" 

4668 printtab(58) "und verdiens 
t dabei" 

4678 printtab(5Q)"E";vd 

46880 getkeyaß 

4698 g=g+vd 

4700 g0t01882 

4718 scnclr:color4,14:color®,1 
4:color1,15,3 

4728 printtab( 248) :printtab( 12 
9) "#3 EIN"S2$"GOENNER *###" 
4730 getkeyaß 

4748 gr=1982*int(rnd( 1)*1901) 

4758 ifgr<19088then4749 

4768 ifgr>scthengr=sc 

4778 scnclr 

4788 printtab( 258) "Ein unbekan 
nter Goen-" 

4798 printtab(58) "ner hat 
Bon 

48088 printtab(58) "Deinen Schul 
den abbe-" 

48180 printtab(508) "zahlt !" 

4820 getkeyaß 

4838 ifsc<grthen4358 

4848 sc=sc-gr:g0t01888 

4858 sc=® 

48608 g0t01888 

4898 letmr=int(rnd( 1)*5180) 

4880 ifmr<S5S®9ormr>29020then4878 

4898 letsr=int(rnd( 1)*519®) 

4982 ifsr<5ßBdorsr>202Q0then4892 

4918 letrr=int(rnd( 1)*51820) 

4928 ifrr<288orrr>20@88then491® 

4930 gr=mr+tsr+rr 

4948 scnclr n 

4958 printtab( 122) "Dein Schiff 
muss repariert werden !" 

4968 printtab( 122) "Kosten :" 
4978 printtab(82)"Mast....E£";m 
rn 

4988 printtab(82)"Segel...£";s 
R 

4998 printtab( 82) "Rumpf...£";:r 
r 


Erg 
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5a202 
5818 
r 

52208 
5238 
52408 


printtab( 49) "-------- ” 
printtab(82)"Gesamt.. 


getkeya$ 

gTe-gr 
ifg<dthen5968 
5258 goto1880 

5868 scnclr:color4,1 
ealort,;2 

5078 printtab(258) "Da Du zuwen 
ig Geld" 

58282 printtab(5B) "hast 
echnung" 

5898 printtab(52)"zu bezahlen 
‚ musst" 

5128 printtab(58)"Du die Reise 
been-" 

S118 printtab(58)"den !!!" 
5128 goto3162 

5138 scnelr:color®,8:color4,8B: 
colort1,3,3 

5148 printtab( 125) "89988999994 
SEHEPFFEEFFFFETEHTFHHK" 
S180-,HBfinttabl 5) "8... eu 


:eolord;; 1 


„ gier RB 


5168 printtab(5)"$....H"s2$g"E" 
sag" A"s2$"Z"s2$"L"s2$"I"sag"C" 
s2$"H"s2$"E N....$" 

937 0-- PrIiNntEtabl 5] "B.... ee 
RT NE g" 

5180 printtab(5) "$..6"s2$"L"s2 
S"U"S2$"E"S2$"C"S2$"K"s2g"W"; 
5198 prints2$"U"s2$"N"s2$"5"s2 
$"C"s2$"H"s2$528"$" - 

SEO "BrinttadlH} "Sarnen 


5218 printtab(5)"HHHEFFFFFFFTEFE 
FEFEFEFEEFFEEFFHE" 

5228 printtab(284)"Du hast ueb 
er £ BOBDOD verdient" 

5232 printtab(44)"und kannst D 
ich jetzt zur Ruhe" 

5248 printtab(44)"setzen !!!" 
5258 printtab( 1282) "Genauer Spi 
elstand E":i$ 

5268 getkeya$ 

5278 scncelr 

5288 printtab( 248) :printtab( 13 
1)"Noch ein Spiel ?" 

5290 getns$ 

5388 na) eninsseatnthen 
5298 

531® nee hen 

5328 printtab(250)"T"s2$"S5"s2$ 
"C"s2$"H"s2$g"U"sS2$"E"S2$"S"s2$ 
a SR 

5332 end 

5348 letp( 1)=int(rnd( 1)*16) 


<bj> 
<if> 
<ko> 
<dn> 
<ok> 
<ch> 
<mp?> 
<se> 
<ab> 
<md> 
<dh> 
<fb> 
<eh> 
<ie> 


<hn> 


<dc> 


<cg> 
<eg> 
<3j? 
<ep> 
<ge> 
<ga> 
<fi> 


<ch> 
<nj> 


<oi> 
<jp> 
<jc> 


<oh> 
<ce> 


<ol> 
<jd> 


<ig> 
<gg> 
<fc> 


5358 
5368 
5378 


ifp( 1) <1then5348 
letp(2)=18*int(rnd( 1)*19) 
ifp( 2) <58then5368 


53880 letp(3)=1B*int(rnd( 1)*108 
) 

5398 ifp( 3) <382then5382 

54020 letp(4)=1BB*int(rnd( 1)*319 
) 

saiß ifp(4) <5Q2then5402 

5428 letp(5)=188*int(rnd( 1)*12 
1) 

5438 ifp(5)<18898then5422 

5448 return 

5458 ifse$="1"then lets$=" Swa 
nsea" 

54608 ifse$="2"then lets$=" Liv 
erpool" 

5498 ifse$="3"then lets$=" Lon 
don" 

5488 ifse$="4"then lets$=" New 
castle" 

5498 ifse$="5"then lets$=" Sou 
thampton" 

5588 return 

5510 BEINE”... asus is 
5520 Print". sereswsnnwen. ” 
5532 g0t0678 

5548 scnclr:color4,15,3:color® 


;, 19,:9570818r1;8 

5552 print" "one; 
tsgesellschaft" 
5568 printtab( AB) rng"#iraswe 
br Fe 2 2 SS Se 4 Parse gest dt sth Dr es HH Eule 1 Aue Jo SE + 
*="rf$ 

5578 printtab(48)"Standort..:" 
5588 printtab( 48) "Guthaben..£. 
ie are deaes + Allgemeines" 

5598 printtab( 28) "Waffen" 


.Schiffahr 


5688 print"Schulden..£....:... 
.Kohle" 

S618 printtab( 20) "Rum" 

5628 print"Ladeplatz 
.Edelsteine" 

5638 printtab( 42) rng"irstsrsestsesen 

BERN ARSESERFIEATARSESPAT SE SR AESFSESFSESFIESFSERF SE SEIEN 

“"rf$ 

5648 return 

5658 scenelr:color4,1 

coLer1,2 

5668 printtab(258) "Weil Du ueb 

er £ 252902" 

5678 printtab(52) "Schulden has 
t ,„ pfaen- 

5688 printtab(58)"den Deine Gl 

seubiger" 

5690 printtab(58) "das Schiff 
und deine" 


:colord,1: 


’ 
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5728 
ende 
57108 
5728 


printtab(582) "Reise ist zu 
EICH" 


goto3168 
fori=1tozz:printxx$; :next 


: return 


5738 
57408 
5758 
8) 

5768 
0) 

57708 
6) 

5788 
5798 
58088 
4) 

5818 
58208 
5838 
5848 
5858 
5868 
58782 
5888 
5898 
5982 
5918 
59282 
5938 
5948 


rem nachspann 
rem farbcodes/steuercodes 
c4$=chr$( 817) :rn$=chr$( 21 


he$=chr$( 819) :f1$=chr$( 13 


fo$=chr$( 132) :rf$=chr$( 14 
c1$=chr$( 157) 

rem zeichensatz/graphik 
s2$=chr$( 168) :zn$=chr$( 18 


memory 
program 
variables 
arrays 
strings 
fre(2) 


ersetzen sie bitte 
in den print-anwei- 
sungen die punkte 
durch blanks. 


FUNKTIONS- 
PLOTTER 


Kurven grafisch darstellen, Kurven plotten. Bis zu 
9 Kurven können auf dem Bildschirm dargestellt, und, 
falls ein solcher vorhanden, auch mit Hilfe des Com- 
modore-Plotters C-1520 zu Papier gebracht werden. 

Nach dem Einladen starten Sie das Programm mit 
RUN. Nun erscheint das Menü. Es werden Ihnen meh- 
rere Vorschläge für den Programmablauf gemacht. 
Normalerweise geben Sie nun eine 1, um eine oder 
mehrere Funktionen einzugeben. Jetzt werden Sie 
nach der Anzahl der Funktionen gefragt. Geben Sie 
z.B. eine 3 ein. 

An dieser Stelle muß darauf hingewiesen werden, 
daß nach der ersten Funktion der maximale Y-Wert 
berechnet wird. Falls in einer der folgenden Funktio- 
nen (2 bis 9) ein größerer Y-Wert berechnet wird, er- 
scheint dieser nicht mehr auf dem Bildschirm. 


ERERI-EECHENI MER TUT TUN I /I- SER Tun 
Kernen IE 
EP-SDNNI LT 

ER? 

* Bun)? 


Geben Sie also z.B. “sin(x)” ein und drücken RE- 
TURN. Nun wird die Funktion Y?2 abgefragt. Geben 
Sie z.B. “cos(x)” und für Y3 = “sin)x-x)” ein. Danach 
wird der maximale X-Wert abgefragt. Geben Sie 3.14 
ein, und ihr Computer wird alle Funktionen im Be- 
reich zwischen X= -3.14 und X= +3.14 berechnen und 
auf dem Bildschirm darstellen. 

Nach dem Zeichnen der einzelnen Funktionen be- 
tätigen Sie eine Taste und gelangen so in das Menü zu- 
rück. Sie können sich jetzt entscheiden, ob Sie neue 
Funktionen eingeben möchten oder nur den Bereich 
der bereits eingegebenen verändern wollen. Außer- 
dem können Sie dargestellte Funktionen abspeichern 
oder neue Funktionen einladen, z.B. FOURIERENT- 
WICKLUNG. Weiterhin ist es möglich, die dargestell- 
ten Funktionen auf den Commodore-Plotter C-1520 
auszuplotten (Nur bei FUNKTIONSPLOTTER 2). 


Zur Darstellung der Funktionen: 

Bei der Darstellung auf dem Bildschirm setzen sich 
die einzelnen Funktionen aus 320 einzeln berechne- 
ten Punkten zusammen. Bei der Darstellung auf dem 
C-1520 besteht jede einzelne Funktion aus 480 Punk- 
ten. 
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12 rem funktionsplotter==plus4 
208 rem (p) 7/87 commodore welt 
38 rem ========-=========2=22=2== = 
48 rem (c) 3/87 p. rudzynski 
582 rem 

68 rem 

78 rem basic v3.5 

88 rem plus4 (c16/t16 + 64kb) 
98 rem ==============2=2=2= === === 
188 gosub 2632 

110 : 

1208 rem #ariratarsratarese starre 
130 rem *#%* menueerstellung ** 
140 rem #irsrararararshatatagatatskar 
150 : 

168 dim b$(9) 

178 color 8,1,1:color 1,2,5:c0 
tor :A,7,1 

188 scncelr:graphic @:print chr 
$( 14) 


198 char 8,9,1,"FUNKTIONSPLOTT 
ER" 

288 char 8,8,4,"Es koennen meh 
rere Funktionen gleich=...... z 
eitig dargestellt werden !" 
210 char 8,6,08,"Funktionen ei 
ngeben =1" 

2280 char B8,6,180,"Neuer Bereich 


238 char 8,6,12,"Abspeichern.. 
240 char 8,6,14,"Einladen..... 
ee er =4" 

258 char 8,6,16,"Ausdrucken (C 
-1528) =5" 

26%: chöär 0,6,18, "Ende... sur... 
278 char 8,2,22,"Erstellt von 
P.Rudzynski am 1.3.1987" 

288 char 8,18,24,"Copyright (c 


getkey a$:a=vallaß):if a<i 
or a>6 then goto 298 

308 on a goto 378,658, 1468, 161 
0,1760,2438 

si10 : 

328 rem #rsaratstarsesetspsät tete 
3380 rem #**#* funktionseingabe * 
348 rem HarstHrsrstststacst titten 
358 

368 

378 scnclr 

388 input"Anzafil der Funktione 
n =";a$ 

398 b=valla$) :if b<1 or b>9 th 
en goto 3782 

488 for c=1 to b 

418 scnclr:c$="Funktion Y"+str 


<hg> 
<pk> 
<ci> 
<on> 
<mb> 
<ml> 
<cd> 
<dl> 
<ge> 
<1lm> 
<ki> 
<kd> 
<gc> 
<lh> 
<na> 
<bg> 


<jl> 
<de> 


<ol> 


<jn> 
<he> 
<en> 
<aj?> 
<lm> 
<fp> 
<gl> 
<nh> 
<if> 
<fh> 
<md> 
<hb> 
<em> 
<co> 
<ia> 
<jj> 
<kd> 
<fl> 


<1in> 


go)+"=" 

428 printc$:printhe$gr$; :input 
b$(c) 

438 next 

448 scnclr:printchr$( 144); 

458 e$="" 

468 for c=1 to b 

470 F=20*c+848 

88 print Try tet bSle),” 
498 printf+12;"b$L";c;")=";chr 


$( 34) ;b$(c) ;chr$( 34) ,‚":return" 
588 e$=e$+chr$( 13) +chr$( 13) 
S1® next 

520 print" 588 b=";b 

538 print:print"goto 588" 


548 key 1,chr$( 19) +chr$( 13) +ch 
r$( 13) +chr$( 13) +e$ 

552 poke2835,8:5ys56364 

568 color 1,1,1 

578 end 

580 b= 2 

598 gosub 2638 

608 : 

618 rem reparieren 
6208 rem * berechnen von y-max* 
638 rem Heessttsterenrteesteneene 
648 : 

658 color 1,2,5 

668 scenclr 

678 print"Geben Sie jetzt den 

maximalen zu berech=,......... 


nenden X-Wert ein." 

688 print:print:input"Maximale 
r X-Wert =";a$ 

698 d=valla$):if d<=® then got 
0.668 

7080 gosub 2470 

718 g=328 

728 gosub 738:goto 
730 dx=2*d/g 

7408 yy=® 

758 for x=-d to d step dx 
768 gosub 868 

778 if abs(y)>yy then yy=y 
788 next 

798 return 

800 : 

818 
828 
838 
8408 
858 
868 
878 
888 
898 
988 : 
918 trap 2697 


188 


rem Haare tag st st stets se: 


rem ablegen der funktionen 
rem SH3RStRHrsgsßsgät ge sfsfaßsgat statten 


trap 26008 


trap 2688 
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z e 


FUNKTIONSPLOTTER 


928 
938 
948 
958 
968 
978 
988 
998 


19008 
1818 


18208 
1938 
12408 
1258 
1068 
1078 
1280 
1298 
1128 
1118 
1120 
1130 
1148 
1158 
11608 
1172 
1180 
1198 
1228 
1218 
1228 
12382 
1240 
1258 
12608 
12708 
1288 
1292 
28,94 
1380 
13108 
1328 
1338 
1348 
1358 
1368 
13708 
1380 
1398 
1408 
1418 
1428 
1430 
1440 
1458 
1468 
14708 
:got 


trap 26088 
trap 2698 

traep 2608 
trap 2688 

trap 2608 

trap 26088 

Sa BES IEHE IE HR SE SESESESESE SE SEP AR IF IE EHE 
rem * koordinatensystem * 
rem ÄHtrarstarstatspseatspsgstgstar tree 
senclr:graphic 1,1 
char,20,6,"-" 

char, 28,18,"-" 

char, 9,12,"Y" 
char,29,12,”7Y" 

draw,8,108 to 319,108 
draw,159,8 to 159,208 
char,21,6,str$(yy/2) 
char,21,18,str$(-yy/2) 
char, 7,13,str$(-x/2) 
char ,27,13,str$( x/2) 

rem rHararspatarskstapseataraeatsgsentst 
rem * zeichnen der kurven 
rem arseafarstatskatst ar spatstsfar age 
for c=1 to b 

for x=-d to d step dx 

on c gosub 860,880,9990,92 
0,968,988, 12808, 190208 


i=109-190*y/yy 
draw,319%*x/2/d+159,i 
next 


ce$="y"+str$(lc)+"="+b$(lc) 
char ‚d,c*#2-2,c$ 
graphic 1,2 

next 

char ‚,®8,24,"< taste >" 
getkey aß 


goto 178 


rem Rrstssaestatapapseaearareseakstststse 
5 


rem graphik speichern * 


rem Harsaarar ir se sh st sharp ee 


5 
” 


gosub 2528 
if k=1 then open 1,1,1,k$ 
o 1498 


<nf> 
<ee> 
<oj> 
<fi> 
<pn> 
<gm> 
<bb> 
<ia> 
<cf> 
<je> 
<dj> 
<kj> 
<eo> 
<fi> 
<cj> 
<di> 
<dn> 
<ia> 
<no> 
<mh> 
<ae> 
<il> 
<mh> 
<ho> 
<jj> 
<dj> 
<cb> 
<ka> 
<db> 
<pi> 
<ac> 
<nd> 
<jp> 
<oh> 
<ck> 
<ih> 
<km> 


<kd> 
<ef> 
<god> 
<kp> 
<lo> 
<dk> 
<lg> 
<nh> 
<ji> 
<gi> 
<je> 
<l1h> 
<mb> 
<jc> 
<cf> 
<kg> 
<oj> 
<ap> 


<nj> 


1488 
1498 
1588 
1518 
15208 
1538 
1548 
1558 
15608 
1578 
1588 
1598 
1608 
1618 
16208 
:goto 
1638 
1648 
16508 
1668 
16702 
1688 
1698 
17808 
1718 
1728 
1738 
1748 
1758 
1768 
1770 
3 
1788 
1798 
1800 
18108 
1828 
1838 
1849 
1858 
1868 
1878 
1889 
18908 
1920 
1918 
19282 
1930 
1948 
1958. 
1968 
1978 
1980 
1998 
2200 
2818 
2020 
2838 
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open 1,8,2,K$+",s,w" 
print#1,b 

for c=1 to b 
print#1,b$(c) 


next 
close 1 


goto 178 


rem Marasararttat staat sb apart 


rem * grafik laden x 
rem WRRRRREBRIRRSRIRSRSESE IHR 


gosub 2528 

if k=1 then open 1,1,0,k$ 
16408 

open 1,8,2,kK$+",s,r" 

input#1,b 

for c=i1 to b 

input#1,b$(c) 


next 
close 1 


goto 448 


rem Hari st tagt rt stage se ge sese 


rem ausplotten auf c-1522 
rem Hrzratstskafsgatstsgafsfafag gt aratatge 


g-4808 
open3,6,3:print#3,1:close 


open 1,6,1:open 2,6,2 
open 3,6 i 

for c=1 to b 

print#2,c 
c$="y"+str$(lc)+"="+b$(lc) 
print#3,c$ 

next 

print#2,08 
pa=8:pb=192:pp=48 

for c=® to 1 

for i=psa to pb step 2*pp 
print#1,"d",i,-4808 
print#1,"m",i+pp,-40®8 
print#1,"d",i+pp,® 

if i=pb then goto 19482 
print#1,"m",i+2*pp,® 
next R 
pa=-239:pb=431 

if c=1 then goto 1988 
print#1,"m",239,8 

next 

pa=8:pb=102:pp=5B 

for c=®ß to 1 

for i=pa to pb step 2*pp 
print#1,"d",8,-i 
print#1,"m",®,-(i+pp) 


FUNKSTLONSPLOTTER 


20408 
2058 
2068 
2878 
2288 
20908 
2108 
2118 


2128 
2138 


21408 
2158 
2168 
2178 
2188 
2198 
22008 
2210 
2220 
2238 
2240 
2258 
2268 
2278 


08,940,969,9882, 1008, 1928 

2288 print#1,"m";479*x/2/d+248 
‚eBa*y/yy+126 

22980 print#1,"d";479*x/2/d+248 
‚2e00*y/yy+128 

23088 next 

2318 print#1,"m",0,148 

2328 next 

2338 print#1,"m",®8,-208 

2348 close 3 

2358 close 2:close 1 

2368 goto 1782 

2370 : 

2380 : 

2398 rem SHHtsrststsrsestaesgatat estate 
2408 rem *#*# und schluss ####* 
DAB rem Hrfsestarsrsgstspstarsgstt et 
2420 : 

2438 scnclr 

2448 print:print:print:print:p 
FINEiprInt" ae ine End 
Be" 

2458 end 

2468 : 

2478 scnclr:graphic & 

2488 a$=chr$( 138) +"...... Funkt 
ion wird berechnet" 

2498 char ®8,2,10,8$ 

2588 return N 

2510 ': 

2528 scncelr:graphic ® 

2538 print:print"Kassette (1) 
oder Diskette (2) ae 

2548 getkey a$:k=val[la$)::if k< 


print#1,"d”,499,-(I+pp) 
print#1,"m",479,-(i+2*pp) 
if i<pb then goto 22882 
print#1,"d”,0,-(IL+2#Bp) 


next 
ps=-281:pb=381 
if c=1 


print#1,"m",479,-201 


next 


print#1,"m",1298,-238 


print#3,-2*d/5 


print#1,"m" ,313,20 


print#3,2*d/5 


x=2*d/5:gosub 2478 


gosub 738 
scenclr 


print#1,"m" ,„250,142 


print#3,yy/2 


Print#1 ,"m",2582,-179 


print#3,-yy/2 
for c=1 to Bb 
printz2,c 


then goto 2128 


for x=-d to d-dx step dx 


on c gosub 869,880,900,92 


<ah> 
<pj?> 
<ch> 
<ja> 
<kk> 
<bk> 
<oc> 
<ag> 
<nc> 
<al> 
<ak> 
<ef> 
<hd> 
<ce> 
<1ld> 
<ho> 
<km> 
<dc> 
<hf> 
<pb> 
<ff> 
<al> 
<mk > 


<hk> 
<mo> 


<nb> 
<ig> 
<lk> 
<j1> 
<go> 
<a3> 
<be> 
<gc> 
<TT>2 
<ip> 
<ga> 
<ck> 
<he> 
<1lh> 
<gp> 


<aj> 
<bl> 
<np> 
<np> 


<dc> 
<ep> 
<fl> 
<bb> 
<bb> 


<mk> 


i or k>2 then goto 25282 <hb> 
2558 print:print <gl> 
2568 if k=2 then directory <=.37 
2578 print:print:input”Name de 

r Graphik";k$ <cp> 
2588 return <km> 
2590 : 4 <gc> 
2608 resume next <ik> 
2618 rem nachspann =========== <ae> 
2628 rem farbcodes/steuercodes <nd> 
26308 rn$=chr$( 818) :he$=chr$( 81 

9) <mg> 
2648 c3$=chr$( 829) <fj> 
2658 rem *** zeichenfolgen *** <la> 
2668 for q=1 to 16 <co> 
2678 gr$=qr$+c3$ <pm> 
26808 next q <ff> 
26920 return <bk> 
2700 rem ===================== <0g> 
2710 rem 60671 bytes memory <jd> 
2720 rem 12288 bytes grafik <hj> 
2730 rem 85267 bytes program <og> 
2748 rem 00098 bytes variables <go> 
27580 rem 000402 bytes arrays <ke> 
2768 rem 808541 bytes strings <am> 
2770 rem 42437 bytes fre(B) <fe> 
2788 rem ===================== cho> 
2798 rem bitte blanks statt <ec> 
2808 rem punkte in folgenden <ij> 
2810 rem zeilen eingeben: <nb> 
2828 rem 200-2690,670,2440,2488 <ko> 
2825 rem alle zeilen eintippen < > 
2838 rem ================2==2== 


<kj> 


99 Jährlich werden 
in der Bundesrepublik 
ca. 40000 behinderte 
oder von Behinderung 
bedrohte Kinder 
geboren.®9 


Rita Süssmuth, 
Bundesministerin für Jugend, Familie, Frauen und Gesundheit 


240 


das Konto der 
Hilfe, bei allen 
Postämtern, 
Banken und 
Sparkassen 


Nur für den Fall, 
daß Sie jemand 
fragt, warum Sie. 
für die Deutsche 
Behindertenhilfe- 
Aktion Sorgen- 
kind spenden. 
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Se mE EEE T|PS & TRICKSH 


GUT SORTIERT 


IST HALB GEFUNDEN 


Daten in den Computer einzutippen, sie wieder auf 
dem Bildschirm oder Drucker auszugeben, ist für die 
meisten ein Kinderspiel. Schwieriger wird’s allerdings, 
wenn’s darum geht, gezielte Ordnung in eine Datei zu 
bringen. COMMODORE WELT stellt Ihnen die ge- 
bräuchlichsten Sortierroutinen vor. 


Irgendein Schlaumeier hat einmal das geflügelte Wort 
von sich gegeben: „Die hälfte seines Lebens sucht der 
Mensch vergebens...“. So banal der Spruch auch 
klingt, ein Körnchen Wahrheit steckt doch drin. 


kommen. Da wir ziemlich sicher sind, daß der größte 
Teil unserer Leser in BASIC programmiert, wollen 
wir Ihnen hier ein paar Sortierunterprogramme vor- 
stellen. Die Bezeichnung „Unterprogramme“ sagt es 
eigentlich schon: Sie sind dazu gedacht, irgendwo in 
einer Ihrer eigenen Software-Entwicklungen einge- 
baut zu werden. 


SORTIEREN FÜR LEICHTERES SUCHEN 


Suchen und Sortieren arbeiten Hand in Hand. Es ist 
für den Computer ungleich einfacher, aus einer be- 
reits sortierten Datenmenge das Richtige herauszu- 
finden, wobei es keine Rolle spielt, ob es sich um nu- 
merische Daten (Zahlen) oder Texte (Strings) handelt. 
Bei einer vorsortierten Datei können zwei Suchme- 
thoden programmiert werden: 

a) Durchsuchen sämtlicher Daten (Wörter, Nummern, 

Texte), 

b) „Halbierungs“-Methode, auch binärer Suchmodus 

genannt. 

Keiner großen Erklärung bedarf der erste Punkt. 
Wenn Sie den Namen Meier suchen, so durchforstet 
Ihr Computer alle zur Verfügung stehenden Daten, 
von Anfang bis Ende, bis er ihn gefunden hat. Ihr 
Pech, wenn die Datenmenge recht groß ist, dann dau- 
ert es eben seine Zeit. - 

Ein ganzes Stück schneller geht es mit der „Halbie- 
rungsmethode‘“ vonstatten. Hier ist aber Vorausset- 
zung, daß die Daten bereits sortiert sind. Sucht der 
Computer nach einem bestimmten Wort oder einer 
Zahl, so müssen Sie ihm ein „Erkennungsmerkmal“ 
angeben, das der Begriff besitzt. Am einfachsten sind 
für die meisten Programmierer die ASCII-Werte der 
Zeichen auf der Commodore-Tastatur. 

Der Buchstabe ‘“A‘“ beispielsweise hat den ASC- 
Code 65, „B“ liegt um eins höher, also bei 66. Am be- 
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sten prüfen Sie’s nach mit PRINT ASC(“A”), oder. 
welches Zeichen Sie auch immer vorziehen. Zurück 
zu unserem Meier: Bei einem sortierten Datenfeld 
stellt der Computer fest, daß dieser Name mit dem 
von Ihnen vorgegebenen Merkmal (ASC-Wert) erst in 
dem Teil des Datenfeldes beginnen kann, dessen ASC- 
Werte gleich oder größer 77 sind (das ist nämlich der 
ASC-Wert von „M‘‘). Das Gesamtfeld wird also _hal- 
biert, das verbleibende ebenso. So geht es weiter, bis 
nur noch zwei zu durchsuchende Elemente übrig sind, 
wovon dann eines todsicher das gewünschte ist. So 
weit scheint der Sinn des Sortierens einleuchtend zu 
sein. Nur: wie stellt man’s an? 

Es gibt viele Arten von Sortiermethoden, wovon 
einige allerdings recht unterschiedliche Sortierzeiten 
für große Datenmengen benötigen: Einfüge-, Tausch-, 
Einzelbyte- und Selektierungsmethode. Diese Klassi- 
ker wurden bereits zu Anfang der BASIC-Program- 
mierung entwickelt, haben aber bis heute von ihrer 
Effizienz nichts verloren. 


DIE INSERT-METHODE: AM HÄUFIGSTEN 
ANGEWANDT 


Bei der Insert-Methode macht’s der Computer ganz 
unkompliziert: Er beginnt bei der ersten Angabe und 
vergleicht sie mit der nächsten. Sie ist kleiner als die 
erste, so wird sie vor dieser eingefügt (daher der Na- 
me). Das dritte Element wird nun mit dem zweiten 
verglichen und ebenso behandelt, bis alle Datensätze 
und -felder „gecheckt“ sind. 

Die Insert-Methode ist die wohl simpelste, aber 
nicht unbedingt langsamste Sortierroutine. 


UNMITTELBARE AUSWAHL: SELECTION 


Ein weiterer Sortieralgorithmus, der neben dem Ein- 
fügeprinzip zusätzlich das des Tauschens verfolgt, ist 
die Auswahl-Methode. Auch hier werden zwei For- 
Next-Schleifen verwendet. Die erste beginnt beim 
höchsten Element des Datenfeldes und arbeitet sich 
vor bis zum nächsten. Die zweite Schleife stellt die 
einzelnen Datenfelder, von vorne beginnend, dage- 
en. 
ö Der Grundgedanke dabei ist, daß das momentan 
größte Element an die letzte Stelle des gesamten 
Arrays gebracht wird. Die Größe des Datensatzes wird 
jetzt um Eins reduziert, dann erneut nach dem größ- 
ten Teileelement gesucht. Das wird wiederum hinten 
angefügt, ohne das vorher an die letzte Stelle gebrach- 
te Element zu beeinflussen, da dieses ja von der Ge- 
samtmenge abgetrennt wurde. Ist nach den verschie- 
denen Durchläufen nur noch ein Teilelement übrig- 


geblieben, so ist dieses — logischerweise — das erste. 


VORSORTIEREN BRINGT’S NICHT IMMER 


Allerdings sind mit der Selektier-Methode die besten 
zeitlichen Ereignisse nur dann zu erzielen, wenn kei- 
ne noch so grobe Vorsortierung vorliegt. Dann kann 


BHTIPS & TRICKS ERSETZT ISEREIEETILTTITTE 


es nämlich sein, daß sich die höchsten Elemente be- 
reits ziemlich am Ende des Arrays befinden, die Se- 
lektier-Routine aber unverdrossen von vorne zu su- 
chen beginnt. Bei einem zufällig entstandenen Daten- 
satz werden die besten Ergebnisse erzielt. 


HAT NICHTS MIT KAUGUMMI ZU TUN: 
BUBBLESORT { 


Bubble Sort ist wohl eine der bekanntesten und am 
häufigsten benutzten Sortierroutinen. Sie arbeitet 
mit dem Prinzip des Tauschens. Das erste Element 
des gesamten Arrays wird mit dem folgenden vergli- 
_chen. Ist es größer, so wird ausgetauscht. Auf diese 
Weise gelangt das größte Element des Datensatzes 
automatisch ans Ende, was ja auch der Sinn der 
Übung war. 

„Bubble“ bedeutet soviel wie „Luftblase‘“ und be- 
schreibt leicht humorig die Art, sich — bildlich ge- 
sprochen — das jeweils größte Datenelement durch 
die ganze Sortierroutine hindurch bis ans Ende des 
Arrays bewegt. Der Unterschied zu den bereits er- 
wähnten Einfügemethoden besteht darin, daß Bubble 
Sort beim größten Datenelement zu sortieren be- 
ginnt, nicht beim kleinsten. Der Zeitaufwand dürfte 
in etwa derselbe sein. 


DIE ROUTINE NACH SHELL 


Der nächste Sortier-Algorithmus, nach dessen Erfin- 
der benannt, hat seit nahezu dreißig Jahren unverän- 
dert seine Gültigkeit. Obwohl Shell ebenfalls das 
Prinzip des Einfügens verfolgt, ist der Aufbau der 
Routine doch ein bißchen komplizierter. Es werden 
nämlich nicht nur unmittelbar aneinander grenzende 
Daten miteinander verglichen, sondern vor allem ent- 
fernt liegende, (etwa der erste mit dem sechsten). 
Dieser Modus ist im Programm vorzugeben. 


So wird eine Art Vorsortierung erreicht. Die ent- 
sprechenden Daten werden auf neue Variablen über- 
tragen und ebenfalls wieder sortiert, diesmal aber mit 
reduzierten Abständen, beispielsweise das erste mit 
dem vierten. Unser Sortiersieb wird auf diese Weise 
immer enger, so daß zum Schluß nur noch der Einser- 
Schritt übrig bleibt, was gleichbedeutend mit einer 
exakten Sortierung ist. 


HILFSROUTINE: EINFÜGEN 


Genau genommen besteht dieser Sortiermodus aus 
- zwei Sortierroutinen;..denn die Grobsortierung über- 
nimmt das bereits bekannte Insert. Da jetzt dem 
Hauptprogramm bereits vorbearbeitete Daten vorge- 
legt werden können, geht die weitere Abarbeitung 
sehr rasch. Shell Sort bewährt sich ideal bei recht 
großen Datensätzen (Adressen, Text) mit vielen Ein- 
zelelementen. 


TREFFENDER NAME: QUICK SORT 

Der nächste Sortier-Oldie, den wir uns ansehen, 
heißt Quick Sort. Er wurde etwa zur selben Zeit wie 
Shell Sort entwickelt; sein Erfinder heißt Roare, 
ebenfalls ein Amerikaner. Quick Sort, die wohl ge- 
bräuchlichste Sortierroutine, vermutlich weil sie bei 
sehr großen Datenmengen einwandfrei die schnellste 
ist. 

Bei kleineren Feldern haben Insert- und Selektier- 
methode die Nase vorn, einfach deswegen, weil sie 
viel simpler aufgebaut sind und der Computer nicht 
so viele Programmschritte abarbeiten muß. Bei großen 
Arrays dagegen macht so ein einfacher Algorithmus 
stur seine Programmschritte, auch wenn die Sortie- 
rung so gut wie abgeschlossen ist. Eine „intelligente“ 
Routine wie Quick-Sort erkennt das aber beizeiten 
und ist dadurch, obwohl softwaretechnisch weit kom- 
plizierter angelegt, viel schneller fertig. 

Aus dem gesamten Array wird irgendein Element 
herausgezogen und abgesondert, weil es ab sofort als 
Vergleichsmuster für alle weiteren Datenelemente fun- 
giert. Nach dem Motto: „Kleiner als‘‘ oder „größer 
als‘‘ werden jetzt die übrigen Daten links oder rechts 
von unserem Muster plaziert. Die erste Vorsortierung 
ist damit erreicht. 

Nun wird jedes so gewonnene Array (das mit den 
kleineren und das mit den größeren Werten) genauso 
behandelt wie das gesamte Datenfeld vorher: wieder 
ein Vergleichsmuster herausgezogen und wieder ein 
„Kleiner‘‘ und „Größer‘-Datensatz geschaffen. Auf 
diese Weise wird die Einteilung immer ‚feiner‘, bis 
das fertig sortierte Array vor uns steht. Ideal für die- 
sen Sortieralgorithmus erweist sich natürlich die Aus- 
wahl des Vergleichselements ats der Mitte der Teil- 
datensätze. 


AUF ANWENDUNG UND MENGE KOMMT ES AN 


Welchen der vorgestellten Algorithmen Sie künftig für 
Ihre selbstfabrizierten Dateiverwaltungen verwenden 
möchten, überlassen wir Ihnen und dem dafür vorge- 
sehenen Anwendungszweck. Beachten Sie bitte dabei 
immer die Menge der eingegebenen und zu sortie- 
renden Daten sowie den Grad der bereits bei der Ein- 
gabe vorliegenden Grobsortierung. 

Quick Sort beispielsweise ist bei zufällig zusammen- 
gewürfelten Werten am effektivsten. Bei einer nahezu 
perfekt alphabetisch geordneten Datei kann es aber 
ohne weiteres sein, daß Bubble- oder Insert Sort um 
einiges schneller sind. Wenn Sie das beachten, dann 
sind wir sicher, daß Sie das Optimale aus diesen Sor- 
tierroutinen herausholen können. 

Alle hier besprochenen Programme sind als Listing 
abgedruckt, als Daten haben wir zwanzig Begriffe aus 
dem Umfeld des Computers gewählt. Den Sortierab- 
lauf jeder Routine können Sie am Bildschirm in gro- 
ben Zügen verfolgen, das fertig sortierte Array wird 
als „‚Erfolgsmeldung‘‘ rechts am Bildschirm ausgege- 
ben. Wollen Sie die eine oder andere Routine in eige- 
nen Programmen verwenden, so lassen Sie bitte die 
Zeilen weg, die Sie nicht benötigen (Bildschirmanus- 
gabe, DATA-Werte und dergleichen). Am besten bau- 
en Sie so ein Sortprogramm als Unterroutine ein, 
die mit GOSUB angesprungen werden kann. 
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Jetzt gibt es 
Deutschlands erste 
 Commodore-Zeitschrift 
mit Programm-Diskette 
für Ihren 64er und 128er! 


SOMMODORE 


Bis zu 180 kB Programme 
ohne Abtippen! 
COMMODORE DISC 

An guten Kiosken und. 
im Bahnhofs-Buchhandel 
COMMODORE DISC 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
KOSTENLOS! 


Das bietet Ihnen COMMODORE-WELT:. KLEIN- 
ANZEIGEN SIND KOSTENLOSE FÜR PRIVATAN- 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver- 
kaufen, zu täuschen, wollen Sie einen Club gründen? 
Coupon ausfüllen, auf Postkarte kleben oder in Brief- 
umschlag stecken und abschicken. So einfach geht 
das. Wollen Sie das Heft nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 
Anzeigentext uns so schicken, auf Postkarte oder im 
Brief. Aber bitte mit Druckbuchstaben oder in 
Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Tele- 
fonnummer sollten acht Zeilen a 28 Anschläge nicht 
überschritten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater In- 


ee m a m 


PROGRAMMSERVICE 


serenten, keine gewerblichen Anzeigen. Die kosten 
pro Millimeter DM 5.00 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gestattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, abzulehnen! 
Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes abhängig! 
Wir behalten uns vor, Anzeigen, die nicht zum The- 
menkreis des Heftes — Computer — gehören, nicht ab- 
zudrucken oder sie nur insoweit zu berücksichtigen, 
nn es der Umfang des kostenlosen Anzeigenteils zu- 
alst. 


Achtung! Preis-Senkung H 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedin- 
gungen die Listings dieses Heftes auf 


D Kassetten zu 40,- 


Name 
Vorname 
Straße/Hausnr. 
PLZ/Ort 
Ich bezahle: 

DO per beiliegendem Verrechnungsscheck / Bargeld 


D Disketten zu 40,- 


(16er) 


OD bargeldios per Bankeinzug von meinem Konto (nur möglich in der Bundesrepublik!) 


bei (Bank) und Ort 
Kontonummer 

Bankleitzahl 

(steht auf jedem Komma) 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. 


Umtausch bei Nichtfunktionieren. 


Unterschrift 
Bitte ausschneiden und einsenden an 


COMMODORE WELT 
KASSETTENSERVICE ‚VI 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


VI 


em En TIPS & TRICKS 


Da es sich um reine BASIC-Routinen ohne PEEKS 49 ci$=1left$(lcr$, 12) :rn$=chr$( 


und POKES handelt, sind sie für jeden Commodore- 18) <jn> 
Homecomputer geeignet, vom VC20 und Cl6bishn sg m=28:dims$( m) <eo> 
zum 128PC. BU. u '68 scncelr:printrn$"unsortiert: 
" L <ak> 
78 fori=1tom:reads$(i) :prints$ 
(i) :next:gosub168 <na> 
Insert—-Sort —- 1 _- 88 fori=mto2step-1:m$="" <no> 
98 forj=-1toi <cn> 
188 ifs$( j) >m$thenm$=s$( j) :k=-j <cg> 
4 - - 118 nextj <ag> 
En anne St a2 120 s1$-s$(4) :s$li)=s$Ck) :s$Ck 
38 fori=1t026:cr$=cr$+chr$( 29)  Btieprintelt; ieh FR 
ee <unS 138 nexti RER 
48 ci$=left$(cr$, 12) :rn$=chr$t 148 printchr$(19)or$rn$"sortie 
18) <jn> rt: ; a8 
58 m=-28:dims$( m) Ein Ag en ea ; 
s : ve - : xtj:en <ml> 
60 senclr:printrn$"unsortiert: care 168 printchr$( 19) ci$rn$"sortin 
< . ax e :return <ap> 
ei PORRVEONSSBRRL EI TRIRISER - au fort=1t058@:next:return <ab> 
i) :next:gosub 298 <mi> 
88 Ffori=2tom <ki> 188 datapascal,diskette,floppy 
98 ifs$(i)>=s$li-1)then16Bß:rem ‚sprites,drucker,chip,ram,rom, / 
alles so lassen <kb> - Yidaschip,basia - R eat 
1988 i$=s$(i):printci$;i;i$:gos 198 dataassembler,maske,amiga, 
ub219 <mg> datei,text,grafik,pixel,softwa 
118 Forj-i-1Itolstep-1 <db> Te,tastatur,monitor <ok> 
128 s$( j+1)=s$( j) :printci$;j;s 
$( j+1) :gosub218 <co> 
130 ifi$<=s$( j-1)then15®8:rem e Bubble-Sort = q en 
infuegen <pe> 
148 s$( j)=-i$:printci$; Jj;s$( j): 
gosub218:got0o16® <ao> 
158 nextj <kj> 18 rem sortierroutine sab> 
168 nexti <na> 28 rem bubble sort <be> 
178 printchr$( 19) cr$rn$"sortie 38 fori=-1t026:cr$=cer$+chr$( 29) 
rt” <la> next <dn> 
188 fori=-i=1tom-9Istep1Bd <fd> 48 cei$=left$(cr$, 12) :rn$=chr$( 
198 forj=1t01+9:printcer$s$( j): 18) <jn> 
nextj,i:end <ch> 58 m=-28:dims$(m) <eo> 
288 printchr$( 19) ci$rn$"sortin 68 scnelr:printrn$"unsortiert: 
g:":return as ” <ak> 
218 fort=1t05®8@:next:return <ik> 78 fori=itom:reads$(i):prints$ 
228 datapascal,diskette,floppy (i) :next:gosub168 <na> 
‚sprites,drucker,chip,ram,rom, B® fori=m-Itolstep-1i:rem beim 
videochip,basic <fb> vorletzten anfangen <mj> 
238 dataassembler,maske,amiga, 98 forj=itoi:rem gegenprobe vo 
datei,text,grafik,pixel,softwa n vorne <jc> 
re,tastatur,monitor <ob> 188 ifs$( j) <=s$( j+1)then128 <bl> 
118 s1$=s$[ j) :s$(l j) =s$l j+1) :s$ 
(3j+1)=s1$:printci$; j;s$( j+1):g 
Select —-Sort — 7 — osub178 <aj> 
128 nextj <co> 
138 nexti <fi> 
18 rem sortierroutine <ab> 148 printchr$( 19) cr$rn$"sortie 
28 rem selection-sort <fg> rt” <jl> 
38 fori=1t026:cr$=cr$+chr$(29) 158 forj=1Itom:printer$s$( j) :ne 
next <dn> xtj:end <ml> 
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168 printchr$( 19) ci$rn$"sortin 


g:":return 

i78 fort=1t0588:next:return 
188 datapascal,diskette, floppy 
‚sprites,drucker,chip,ram,rom, 
videochip,basic 

198 dataassembler,maske,amiga, 
datei,text,grafik,pixel,softwa 
re,tastatur,monitor 


S5Shbell-Sort = 7 


18 rem sortierroutine 

28 rem shell-sort 

38 fori=1t026:cr$=cr$+chr$( 29) 
next 

48 ci$=left$(cr$, 12) :rn$=chr$( 
18) 

58 m=-28:dims$( m) ,s1${ m) :sw=int 
(m/2) 

68 scenclr:printrn$"unsortiert: 
78 fori=itom:reads$(i) :prints$ 
(i) :next:gosub328 

88 Fori=itosw 

98 forj=itoint(m/sw) 

188 s1$[l j)=s$l(l j-1)*sw+i) 

118 nextj 

128 s1=j-1:gosub228@:rem insert 
-sort benutzen 

138 forj=1Itoint({m/sw) 

148 s$l( j-1)*sw+i)=s1$( j) :prin 
tei$; j;s$(( j-1)*sw+i) :gosub33® 
158 nextj 

168 nexti - 

178 sw=int( sw/2) 

188 ifswthengoto88 

198 printchr$( 19) cr$rn$"sortie 
rt:” 

288 for j=itom:printcr$s$( j) :ne 
xtj:end 


218 rem untersortierroutine 
228 fori1=2tosi 
238 ifs1$(i1)>=si$( i1-1)then3® 
8 
248 i1$=s1$(ii) 
258 for ji=i1-1I1tolstep-1i 
268 s1$( ji+1)=s1$( ji) 
278 ifi1$<=s1$( j1-1)then298 
288 si$( j1)=-i1$:goto388 
298 next ji 
388 nextiil 
.,318 return 
328 printchr$( 19)ci$rn$"sortin 


g:"”:return 


<ok> 


338 fort=1t058®:next:return 
348 datapascal,diskette,floppy 
‚sprites,drucker,chip,ram,rom, 
videochip,basic 

358 dataassembler,maske,amiga, 
datei,text,grafik,pixel,softwa 
re,tastatur,monitor 


Quick—-Sort m 4 


18 rem sortierroutine 

28 rem quick-sort 

38 fori=1t026:cr$=cr$+chr$( 29) 
:next 

a 3 = 53 U ni 
s6 m=-28:mg-188:dims$(m) , le(mg) 
‚ri(mg) 

68 x=B:1le( 1)=1:ri( 1) =m 

78 scnclr:printrn$"unsortiert: 
88 fori=itom:reads$(i) :prints$ 
(i) :next:printchr$( 19) ci$rn$"”s 
orting:" 

98 gosub 128 

198 printchr$( 19) cr$rn$"sortie 


rt:” 

118 forj=1tom:printer$s$( j) :ne 
xtj:end j 

128 x=x+1:ifle(x)>=ri(x)then24 
[7] 

138 y=le{x):w=ril[lx) 

148 s1$=s$lint((y+w)/2)) 


ify>wthen228 


168 ifs$(y)<si$theny=y+1:gotoi 
68 

178 ifs$(w)>s1$thenw=w-1:gotoi 
78 

188 ify>wthen228 

198 s2$=s$ly) :s$ly)=s$lw) :s$lw 


J)=s2$:printci$;w;s$(w) :gosub25 
8 


288 y=-y+1:w=w-1 

218. goto158 

228 rilx+1)=w:le(x+1)=1le(x):go 
subi28 

238 le(x+1)=y:ri(x+1)=ri(lx):go 
sub 128 

248 x=x-iI:return 

258 fort=1t0588:next:return 
268 datapascal,diskette,floppy 
‚sprites,drucker,chip,ram,rom, 
videochip,basic 

278 dataassembler,maske,amiga, 
datei,text,grafik,pixel,softwa 
re,täastatur,monritor 


<od> 


<co> 


<fi> 


<ab> 
<be> 


<dn> 


<jn> 


<gk> 
<jg> 


<gk> 
<jc> 
<gd> 
<mk> 
<aa> 
<sag> 
<ci> 
<no> 
<mm> 
<ic> 
<nc> 


<ko> 


<dd> 
<hd> 
<na> 
<fe> 
<ch> 


<ck> 
<be> 


<ce> 


<Tm> 


BENDER ER | ISTINGSE 


Universelle Datei 


Dateien können auf die verschiedenste Weise 
serwaltet werden. Die ‚relative‘ Dateiablage ist weni- 
ger verbreitet, da sie schwieriger zu programmieren 
ist. Mit diesem Listing geht’s aber problemlos. 


Dieses Programm ermöglichst relative Dateiverwal- 
tung aller möglichen Variationen bis 254 Byte pro 
Datensatz und verwaltet bis 20 unterschiedliche Da- 
<zien. Es ist möglich, pro Datensatz bis zehn Datenfel- 
Ser einzurichten. Bei 40 Zeichen werden allerdings 
nur sechs Datenfelder zur Verfügung gestellt. Bei kür- 
zeren Datenfeldern können je nach Recordlänge bis 
zu zehn Datenfelder definiert werden. 

Nach dem Programmstart erscheint das Menü, dann 
kann mit dem Cursor der einzelne Menüpunkt ange- 
wählt werden. Wenn keine Datei vorliegt, antwortet 
das Programm mit entsprechenden Hinweisen. Nur 
der Menüpunkt „Datei einrichten“ läßt sich anwäh- 
lien, um eine Datei zu erzeugen! 

Nach der Datums- und Dateinamen-Eingabe wird 
nach der Feldbezeichnung und Feldlänge gefragt. Als 
Feldbezeichnung sollten etwa bei Adressen, Name, 
Straße, Postleitzahl, Ort, Telefon, genannt werden. 
Der Strich bei Feldbezeichnung markiert lediglich 

die mögliche Eingabelänge. Die Feldlänge kann 25 
Zeichen nicht überschreiten. Bei erreichter Record- 
länge, Escape oder dem Erreichen des zehnten Daten- 
feldes wird die Funktion beendet und die Parameter 
werden automatisch festgestellt. 
Danach erscheint die Eingabe für die Datensätze. Der 
Strich markiert nur die Datenfeldlänge. Es ist wichtig, 
daß im ersten Datenfeld die Bezeichnung steht, die 
für die Identifizierung maßgebend ist, also bei Adres- 
sen der Personenname oder bei Bibliotheken der 
Buchtitel. Sie darf sich auf keinen Fall in einem ande- 
ren Datensatz wiederholen, da dieser Datensatz sonst 
nicht angenommen wird. Nummern sind nicht zu emp- 
fehlen, da hier keine Kontrolle für doppelte Eingaben, 
die automatisch ausgeführt wird, möglich ist. 


Ebenso sind Bezeichnungen, die in mehreren Datensät- 
zen gleich sein müssen, also bei Adressen der Ort oder 
bei Bibliothek der Autor, im ersten Datenfeld zu ver- 
meiden. Die Recordnummer wird vom Computer in- 
tern ermittelt und verwaltet und tritt nicht in Erschei- 
nung. Wenn die Eingabefunktion beendet werden soll, 
ist die Taste Escape zu drücken. Dies gilt für alle 
Funktionen. 


Dann erscheint das Anfangsmenü wieder. Wenn jetzt 
die Menüpunkte ‚Programm beenden“, „Datei lö- 
schen“ und ‚‚Datei Wahl‘ angewählt werden, schlie- 
ßen die Datenkanäle automatisch und die Parameter- 
datei wird als „Par.Dateiname‘“‘ abgelegt. Die Datei- 
namen der unterschiedlichen Dateien werden unter 
der Datei „Rel.Files-Liste‘‘ zusammengefaßi und ge- 
speichert. Vor dem Zugriff auf eine Datei muß ‚‚Da- 
tei Wahl“ gewählt werden, denn nur hier werden die 
Kanäle geöffnet. Der entsprechende Dateiname wird 
mit dem Cursor ausgesucht und mit Return werden 
die entsprechenden Parameter geladen und die Kanä- 
le geöffnet. 


Nun können die Menüpunkte „Datenausgabe‘“, „Da- 
teneingabe‘‘ und „Daten ändern“ angewählt werden. 
Andernfalls erscheint eine entsprechende Meldung. 
Da das Abbrechen des Programmes durch die Stop- 
taste nicht möglich ist, muß der Menüpunkt ‚‚Pro- 
gramm beenden“ benutzt werden, um alle Kanäle zu 
schließen und Paramterdateien zurückzuschreiben. 
Die Funktion der Suchroutine ist folgende: Nach Ein- 
gabe der Anfangsbuchstaben des Suchbegriffs werden 
alle Datensätze, die mit den gleichen Zeichen begin- 
nen, hinter die Forderung Suchbegriff ausgegeben. 
Dann wartet das Programm drei Sekunden. Wenn in 
dieser Zeit nicht Return gedrückt wird, um den 1.D.- 
Code zu übernehmen, wird an dieser Stelle der näch- 
ste Datensatz vorgeschlagen. 

Dieter KukkelU 
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18 rem relative datei ========2=016 

28 rem (p) commodore welt team 

38 ren =============2===22222=2=222=== 

48 rem (c) by dieter kukkel c128 

58 rem (v) a. mittelmeyer c16 

68 rem 

78 rem basic v3.5 

88 rem c16/116/plus4 + Floppy 

98 rem zs=e==2=2=2222222222222=2222=2== 
188 gosub118:sys818:goto168 

118 restore: fori-818t0838 

128 reada:pokei,a:next:return 

138 data 128,169, 182,141,838,883 
148 dato 169,284, 141,939,863,888 
158 data 896 

168 gosub 1698: scnclr 

178 dim n$(8),t(8),x{8),y(8) ‚dn$(2 
5) ,‚df$( 28) ‚,1r(28) ‚dx$( 28) ‚,id$( 588) 
188 sp$-chr$( 32) :pu$=chr$( 163) :ad- 
8:1f=8:rp=1:s5=1:f1=-8:f=8 

198 for j=8t038:s8$=s8$+sp$:nextj:r 
estore218 

288 fori=1t07:readn$(i),t(i),x(i), 
y(i) :nexti 

218 data " datei-auswahl ",1,8,3," 
daten-ausgabe ",2,8,4 
228 data " daten-eingabe 
daten-aendern ",4,8,6 
238 data ” datei einrichten ",5,28 
‚3,” datei loeschen ",6,28,4 

248 data ” programm beenden ",8,28 
‚5 

258 : 

268 gosub8S@:char1,1,8,rf$+"relati 
ve index-datei”+b$+b3$+”c16 "”+ro$ 

278 chari,1,1,rf$+"{(c) commodore w 
elt/dieter kukkel”+ro$ 

288 chari,8,8,rf$+s8$+ro$:char, 1,8 
‚rf$+"cursor-wahl :"+ro$ 

298 fori=1t07:charl,x(i),y(i),n$(i 
):nexti 

388 char,x({s),y(s),rf$+n$(s)+ro$:c 
har, 21,8,rf$+"funktion”+str$(t(s)) 
+ro$ 

318 getkey z$:char,x(s),y(s),n$(s) 
328 ifz$=chr$( 145)then s=s-1:ifs<1 
thens=s+7 

338 ifz$=chr$( 17} then s=s+1:ifs>? 
thens=s-?7 

348 ifz$=chr$(29) then s=s+t4:ifs>7 
thens=s-? 

358 ifz$=chr$( 157)ihen s=s-4:ifs<1 
thens=s+7 .n 

368 ifz$<>chr$( 13) then398 

378 ifs>lands<5then ifdn$=""then g 
osub978:goto26B 

388 ifs=3ors=4then gosub1B68 

398 on t{s}) gosub 429,598,728,598, 


",3,8,5,"” 
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1128, 1598: ift( s) <>8then268 

408 gosub1478:scnclr:gosub11@:poke 
828, 181:poke825,242:sys818:end 

418 : 


428 iffl=dthengosub 1368: iffl=@then 
return 


438 s=1:x=1:y=11:fori=1tofl:ifx>38 
thenx=1:y=y+1 

448 chari,x,y,dn$(i) :x=x+28:nexti: 
ifdn$<>""then gosub1478 

458 gosub1848:iff=dthen char1,1,24 
‚rf$+"welche datei wird gewuenscht 
?"+ro$ 

468 iff-ithen chari,1,24,rf$+"welc 
he datei soll geloescht werden ?"+ 
ro$ 

478 z=s-1:y-int(z/2)+11:x=-((z/2)-i 
nt(z/2))/.S*28 

488 char, 13,23, rf$+b3$+ro$:char, 1, 
23,rf$+"datei-wahl”+str$(s)+ro$ 

498 char,x,y,rf$+sp$+dn$( s) +sp$+ro 
& 

588 getkey z$:char,x,y,sp$+dn$(s) + 
sp$ 

518 ifz$=chr$( 145)then s=s-2:ifs<1 
thens=s+28 

528 ifz$=chr${ 17?) then s=s+2:1ifg>2 

öthens=s-28 

538 ifz$-chr$(29) then s8=s+1:ifs>2 

Bthens=s-28 

548 ifz$=chr$( 157)then s=s-1:ifs<1 

thens=s+28 

558 ifz$<>chr$( 13) thend478 

568 ifs=<flthen dn$=dn$( s) :s=1:els 

e 5=1:g0t0478 

578 iff=1then return:else gosub184 

8:g0t01418 


. 588 : 


598 gosub878:char1,8,23,rf$+">>> a 
chtung <<<"+b2$+"record nr.”+ro$ 
688 char1,8,24,rf$+"mit return ueb 
ernehmen”+ro$:rn=8 

618 chari,8,2,"suchbegriff:":input 
nn$ 

628 fori=itoad:char1,27,23,rf$+str 
$li)+ro$:ifleft$(lid$(i),len(nn$))< 
>nn$then648 . 

638 char1,14,2,id$(i) :gosub1688:ge 
tt$:ift$=chr$( 13) then668 

648 chari,14,2,l1eft$(s8$,25) :nexti 
:gosub 1848 

658 char1,5,24,rf$+"datensatz ist 
nicht vorhanden 1"+ro$:gosub168Q:g 
osub 1848: g0t 0838 

668 rn=-i:gosub1B48:gosub9BB:ifr1<B 
9then688 

676 fori=itodf:Fforj=itolrli):get#i 
f,eg$:dx$li)=dx$li)+eg$:nextj,i:go 


<bd> 


<cd>. 
<hb> 


<fb> 
<ap> 


<go> 


<ak> 


<kl> 
<hn> 
<gd> 
<mb> 
<oh> 
<kj> 
<dd> 
<cn> 


zna> 
<no> 


<mb> 


<pl> 
<mg? 


<la> 
<ok> 


<gc> 


<ee> 
<ni> 


<og> 


< ga> 


<pm> 
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06598 

558 input#1f,rc$:1r=1:fori=1todf:d 
x$(i)=mid$(rc$,ir,ir(i)):iIr=lr+lr( 

i):nexti 

538 fori-itodf:char1,8,i*2+2,df$(i 

):char1,14,i#2+2,dx$(i) :nexti 

788 gosub958:ifs=4then fori=itodf: 

g0t0738:else838 

718 : 

728 gosub878:ad=ad+i:rn=ad:fori=1t 

odf 

738 char1,8,i*#2+2,df$(i) :forj=1tol 

r{i):char1,13+3,i1#2+3,pu$:nextj 

748 char1,12,i#2+2,"":inputdx$(i): 

iflen( dx$(i))>1Ir[li)ordx$( i)=""then 

738 

758 ifi>1then798:else ifs=-4Athen id 

${rn)="" 

768 1-8: forj-itoad:ifid$( Jj) s#dx$t 1 

}then?88 

778 chari,1,23,rf$+"i.d.-code exis 

tiert"+ro$:f=1:gosub1688 

788 next j:gosub1848:iff=Bthen id$( 

rn)=dx$( 1) :else738 

798 Ir$="":forj=1Itolr(i):1r$=1r$+s 

p$:nextj 

888 dx$li)=left$ldx$li)+left$l1ir$, 

abs{1Ir(i)-len(dx$(i)))),1Ir(i)) 

818 rc$=rc$+dx$(i) :nexti:gosub99B: 

print#lf,rc$:gosub988:gosub958 

828 gosubiBß4B:char1,1,24,rf$+"”date 

nsatz ist gesichert”+ro$:gosub1688 

838 gosub182B:ift$=chr$( 27) thenret 

urn:else ifs=3then?728:else598 

848 : 

858 scncelr:char1,8,8,rf$+s8$+ro$:c 

har1i,8,1,rf$+s8$+r0o$:goto1948 

868 : 

878 gosub858:char1,8,@,rf$+n$( s)+s 

p$+dn$+ro$ 

888 chari,1,1,rf$+"aktualisiert am 
: "+3j$+ro$:return 

898 : 

988 ah=int( rn/256) :al=rn-256*ah:pr 

int#15,"p”+chr$( 96+1f) +chr$( al) +ch 

r$( ah) +chr$(rp) 

918 chari,1,23,rf$+ds$+ro$:ifds<28 

ords=-5Bords=62then return 

928 ifds=52then gosub1478:else gos 

ub 1528 

938 run 

948 : 

958 fori=itodf:dx$li)="":nexti:rc$ 

. ="":return 

968 : 

978 char1,1,23,rf$+"datei-auswahl 

oder "+ro$ 

988 chari,1,24,rf$+"datei-einricht 


<in> 


<mk> 
<nd> 


<co> 
<ml> 


<gl> 


<1j> 


<be> 
<kh> 
<im> 
<ad> 
<kp> 
<oi> 
<bk> 
<io> 
<im> 


<ji> 
<na> 


<no> 
<pi> 


<jn> 
<ai> 
<de> 
<kc> 
<jd> 


<fd> 
<nf> 


<jp 


<af> 
<mb> 


<ae> 


en waehlen”+ro$:gosub1688:return 
998 : 

1808 char1,8,2,rf$+left$(s8$,18):r 
eturn 

1818 : Er 

1828 char1,1,23,rf$+"funktion wied 
erholen"+ro$ 

1838 char1,1,24,rf$+" ja=( space) "+b 
2$+" /"+b2$+"nein=( escape) "+ro$:get 
keyt$ 

1848 char1,8,23,rf$+s8$+ro$:char1, 
0,24,rf$+s8$+ro$:return 

1858 : 

1868 char1,8,18,rf$+” aktuelles da 
tum "+ro$:1fj$=""then j$="81.09.198 
I 

1878 char1,28, 18, j$:char1,18,18,"" 
:inputp$:char1,®, 18,s8$ 

1888 iflen(p$)<>1Borval(left$(p$,2 
))>31then1968 \ 

1898 ifvallmid$(p$,4,2))>12orvallr 
ight$(p$,4))<1988then 1868 

1188 j$=p$:return 

1118 : 

1128 ifdn$=""then gosub136B:else g 
osub 1478 

1138 iffl=2ß8thenchart, 1,23,rf$+"”ma 
x. dateien-anzahl ist erreicht”+tro 
$:gosub1688:return 

1148 ifad>@thenfori=itoad:id$[ i}=" 
":nexti:ad=® 

1158 gosub858:char1,1,8,rf$+"relat 
ive index-datei einrichten”+ro$:go 
sub 1868 

1168 dn$="":char1,6,18,rf$+” datei 
-name "+ro$:fori=16t027 

1178 char1,i1,11,pu$:nexti:char1,14 
‚18,"”":inputdn$:char1,8,18,58$ 
1188 char1,8,11,s8$:iflen( dn$) >120 
rdn$=""then1168 

1198 fori=1tofl+1:ifdn$(i)=dn$then 
char1,1,23,rf$+"datei-name existie 
rt"+ro$:goto1168 

1288 ifdn$(i)=""then dn$l i)=dn$: fl 
=i 

1218 nexti:gosub1848:char1,8,2,s8$ 
:char1,1,1,rf$+"parameter-eingabe” 
+b3$+dn$+ro$ 

1228 r1=8:b=253:i=8:do:i=i+1:1r(i) 
=9:df$li)="" y 

1238 char1,8,i*2+2,rf$+”" feld nr.” 
+str$(i)+sp$+ro$ 

1248 gosub1888:char1,8,2,rf$+” fel 
d-bezeichnung "+ro$ 

1258 forj=15t026:char1, j,i*2+3,pu$ 
:nextj:char1,13,i*2+2,"":inputdr${ 
i) 

1268 iflen(df$li))>i2ordf$(i)=""tn 
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enforj=13t035:charl, j,i*2+2,sp$:ne 
xtj:goto1248 

1278 gosub1@88:char1,8,2,rf$+"” fel 
d-laenge "+ro$:char1,27,i*2+2,sp$: 
inputlr(i) 

1288 iflr(i)<torlir(i)>2S5orlr(i)>bt 
hen1298:elserl=ri+1r(i) :b=b-Ir(i) 
1298 gosub1888:char1,8,2,rf$+” rec 
ord-laenge "+ro$:char1,36,2,b3$ 
13088 char1,29,2,rf$+str$(rl)+sp$+tr 
o$:char1,35,2,str$(b) :ifi-1Borb-Bt 
henexit 

1318 char1,1,23,rf$+”weitere daten 
felder einrichten”+ro$ 

1328 gosub1938:ift$=chr$(27)then e 
xit 

1338 loop:df=i:rl=r1+1:gosub1928:i 
ft$=chr$( 27) thengosub 1448: s=3:goto 
728 

1348 dn$( f1)="":Fi=fl-1:goto1158 
1358 : 

1368 open2,8,3,"8:rel.files-liste, 
s,r":gosub91@:ifds=62thenclose2:go 
t0o1388 

1378 input#2,fl:fori=1tofl:input#2 
‚dn$li):nexti:close2:return 

1388 chari,1,23,rf$+"dateien nicht 
existent"+ro$ 

1398 char1,1,24,rf$+"erst datei ei 
nrichten”+ro$:gosub 1688:return 
1488 : 

1418 open2,8,3,"8:par."+dn$+",s,r"” 
:gosub918 

1428 input#2,ad,df,rl,j$:fori=1tod 
f:input#2,df$(i),ir(i):nexti 

1438 fori=1toad:input#2,id$(i) :nex 
ti:close2 

1448 open15,8, 15:openlf,8,1f,dn$+" 
‚1,"+chr${rl) :gosub918 

1458 char1,1,24,rf$+"dateiarbeit k 
ann begonnen werden. ”+ro$:gosub168 
Ö:return 

1468 : 

1478 ifdn$=""thenreturn:else gosub 
1548 

1488 print#15,"s:par."+dn$ 

1498 open2,8,3,"@:par."+dn$+",s,w" 
:gosub91B 

1588 print#2,ad”,"df","r1","j$:for 
i=1todf:print#2,df$(i)","Ir(i):nex 
ti 

1518 fori=1toad:print#2,id$(i) :nex 
1528 close2:cloself:close15:dn$="" 
:return 

1538 : 

1548 char!,1,24,rf$+"daten-kanaele 
werden geschlossen "+ro$ 
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1558 print#15,"s:rel.files-liste” 

1568 open2,8,3,"8:rel.files-liste, 
s,w":gosub918 

1578 print#2,fl:fori=1tofl:print#2 


‚dn$li) :nexti:close?:return 
1588 : 


1598 f=1:gosub428:gosub184B:iFF1=-8 
thenreturn 

1688 chari,1,23,rf$+"loesch-vorgan 
g abbrechen ?"+ro$:gosub1838 

1618 f=B:ift$<>chr$( 27)then dn$="" 
:return 

1628 chari,1,24,rf$+"datei ”+dn$+"” 
wird geloescht"+ro$ 

1638 fori=1tofl:ifdn$=dn${ i)thendn 
$ti)="" 

1648 ifdn$(i)=""thendn$( i) =dn$li+1 
) :dn$l i+1)="" 

1658 nexti:fl=fl-1:0pen15,8,15:pri 
nt#15,"s:par."+dn$:print#15,"s:"+d 
n$ 

1668 print#15,"s:rel.files-liste": 
close1l5:iffl>@then gosub 1568 

1678 dn$="":return 

1688 forxx=1t02888:next:return 
1698 b$=chr$( 32) :b2$=b$+b$ 

1788 b3$=b2$+b$:b$=b3$+b3$+b2$+b2$ 
1718 rf$=chr$( 18) :ro$=chr${ 146) :re 
turn 

1728 rem ========2=2=2===2==-=- 2222022020 
1738 rem 12277 bytes memory 

1748 rem 86348 bytes program 

1758 rem 88217 variables 
1768 rem 82837 bytes arrays 

1778 rem 88642 bytes strings 

1788 rem 083833 bytes free (8) 

1798 rem (bei 3 datensaetzen) 


1888 rem === Ss2z12zzsocoserssmmum 


RIED EEE ZEEEER TIPS &TRICKSE 


HARDCOPIES 
Grundlagen 


GRAFIKBILDSCHIRM 
Organisation und Hardcopies 


Für jeden 

Computer 

und jeden 
Drucker 


Hardcopy zu klein, zu groß, zu wenig dicht, 
falsches Verhältnis von Breite und Höhe oder für den 
speziellen Drucker nicht verfügbar? In zwei Folgen 
bringen wir Grundlagen, Möglichkeiten und Listings. 


Mit den Grafikbefehlen 
des BASIC V3.5 kann je- 
der Bildpunkt auf be- = 
queme Weise angespro- 
chen werden. Schwierig 
aber wird es, wenn es gilt, 
eine Hardcopy des Gra- 
fikbildschirmes auszu- 
drucken. Im Bediener- 
handbuch zum Rechner 
ist darüber nichts zu fin- 
den, zumindest nicht im 
C16-Handbuch. Dieses 
bricht mitten im Anhang 
einfach ab. 
Dem C116- oder Plus/4- 
Handbuch können wir auf 
Seite 228 entnehmen, daß 
der Bildschirmspeicher für 
die Grafik Rn Speicher- 
ie von $2000 bis 
3FFF belegt. Um damit 

allerdings etwas anfangen 
zu können, bedarf es ent- 
weder weiterer Informa- 
tionen oder einiger Expe- 
rimente. 
Wie wird die Grafik, die 
immerhin die Information 
über 64.000 Bildpunkte 
enthalten muß, in einem 
Adreßraum von etwa 
8.000 Bytes gespeichert? 
Dies kann nur dadurch 
geschehen, daß ein Byte 
die Information über acht 
Bildpunkte enthält. Wie 
wir wissen, besteht ein 

_ Byte aus acht Bits. Jeder 
Bildpunkt kann entweder 
gesetzt oder nicht gesetzt 
sein. Ist er gesetzt, so ist 
auf dem Bildschirm die 
Vordergrundfarbe zu se- 


hen, ansonsten die Hinter- 
grundfarbe. 

Gesetzte und nicht ge- 
setzte Bildpunkte lassen 
sich in Form von gesetz- 
ten und nicht gesetzten 
Bits speichern. Wie dies im 
Einzelnen geschieht, wol- 
len wir jetzt untersuchen. 
Dazu schalten wir die 
hochauflösende Grafik 
mit Text ein durch: 


GRAPHIC 2,1 

Außerdem ist die Anfangs- 
adresse $2000 des Grafik- 
bildschirmes in die dezi- 
male Darstellung umzu- 
rechnen 


?DEC(‘‘2000“‘) 


Die dezimale Adresse lau- 
tet 8192. Ein kleiner Ver- 
such könnte vielleicht et- 
was zeigen. 


POKE 8192,255 


Es erscheint ein kleiner 
waagrechter Strich in der 
linken oberen Ecke des 
Bildschirms. Die Zahl 255 
wird in einem Byte durch 


acht-gesetzte Bits realisiert. 


Acht nebeneinanderliegen- 
de schwarze Pünktchen, 
die im Computerjargon 
Pixel heißen, sind zu se- 
hen. Ein gesetztes Bit be- 
deutet also ein gesetztes 
Pixel. Noch ist nicht klar, 
welches Bit welchem 

Pixel entspricht. 


18 rem listing 1======(hardcopies) <nf> 
28 rem by alfons mittelmeyer <if> 
38 rem ==========20 === cong> 
48 graphic1i,i:clr <ap>. 
58 ax=dec( "2888"”) <fk> 
68 fori=axtoax+7999 <cr> 
78 pokei,255 <mc> 
88 char,8,24,hex$(i)+str$(i) <aa> 
98 getkeyx$ <gd> 
188 next <ek> 
118 graphicclr <bb> 
128 rem ========================== con 
138rem programmende <jf> 
148 rem ===>=====- === mem ge) 
18 rem listing 2======(hardcopies) <fc> 
28 rem demoprogramm <ao> 
3@ rem dieses programm liest ein <ha> 
48 rem buchstabenmuster, konver- <np> 
58 rem tiert es, und gibt es dabei <dk> 
68 rem auf den bildschirm aus. <dg> 
78 rem ------------------ <an> 
88 rem matrix aus zeichensatzrom <ae> 
DE, Fe ee <c> 
188 ax=53256:rem buchstabe a <gd> 
118 poke1177,62:rem peek aus rom <fe> 
128 fori=8to? <hp> 
138 ali)=peek(ax+i) <ik> 
148 next <jl> 
158 poke1177,63:rem peek aus ram <hi> 
168 gasub2B8:goto168 <ed> 
178 zen, - <ef> 
188 rem matrix-konvertierung <ke> 
198 rem Hm <ca> 
288 for j=8to7 <ld> 
218 a=® <co> 
228 fori=?7toßstep-1 <ci> 
238 ali)-2*a(i) <dk> 
2AB arata <en> 
258 ifa(i)>255thena=a+1:ali)=ali)- 
256:print”Q";:elseprint”."”; <bk> 
268 nexti:print <jg> 
278 b( j)=a <ch> 
288 nextj <ld> 
298 fori=8t07 <fk> 
308 ali)=bl(i) <ha> 
318 nexti:return <kl> 
320 rem ========================= 0 ci) 
338 rm programmende <al> 
348 rem ==============-------==== 0 000> 
POKE 8192,1 sein, ob die nächste Spei- 


POKE 8192,128 


Das linke Pixel wird durch 
das höchstwertige Bit ver- 
treten, das rechte Pixel 
durch das niederstwertige 
Bit. Wir können gespannt 
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cheradresse die rechts 
oder unten anschließen- 
den Pixel wiedergibt. 


POKE 8192,128 
POKE 8193,64 
POKE 8194.32 


STIPS & TRICKS Eee 


listing 3============( hardcopies) 


hardcopy-maschinenteil 


assemblerlisting 


rechts. Mit aufsteigenden 
Speicheradressen dagegen 
scheint es am Bildschirm 
abwärts zu gehen. Jedoch 
werden wir gleich eines 


mal acht Pixel ergeben 
320 Bildpunkte in der 
Breite, 25 mal acht Pixel 
sind 200 Bildpunkte in 
der Länge. Wir wissen 


. 08138 28 4e ®1 jsr $B14e Besseren belehrt. jetzt, wie die Bildpunkte 
B13b ad 88 idy #$88 der hochauflösenden Gra- 
i . y POKE 8200,255 fik untergebracht sind 
. B13d a2 88 ldx #388 und können uns Gedanken 
. B813f 16 d2 asl $d2,x Wir haben damit die ober- über das Ausdrucken ma- 
. 8141 2a rol ste Reihe der nächsten chen. 
. 8142 ca dex Spalte angesprochen. Da u 
. 8143 da fa bne $813F es wohl etwas mühsam ist, VORÜBERLEGUNGEN 
B145 ea nop sich den ganzen Grafik- ZUM DRUCKEN 
" Di46 ea ag bereich mit POKEs per —— 
& pP Hand zu erschließen, soll Statt eines einzelnen Byte 
. 8147 20 d2 ff jsr $ffd2 ein kurzes BASIC-Listing für ein Zeichen haben wir 
. 814a 88 dey namens HIRES uns die im Grafimodus gleich acht 
. Bl4b da fa bne $813d Arbeit abnehmen. Sie fin- Bytes vor uns. Im Text- 
. Bl4d 68 ehe den es als Listing Nr. 1 modus hatten wir einen 
B1a a 08 1dy #$00 im Anhang zu diesem Code, der dem Drucker 
ur A y Artikel. sagte, welches Zeichen- 
Bisa 85 d2 sta en muster er aus ner Bir 
8152 a2 88 ldx 88 Kuna Eye bliothek auswählen solle. 
B154 b1 da 1da ($d8) ‚y Zeh Br tes PRO Jetzt haben wir das Zei- 
chenmuster selbst vorlie- 
8156 95 d2 sta $d2,x 40 ZEICHEN PRO ZEILE gen 
#158 85 d2 ora $d2 ——— u ———  Teider ist es anders orga- 
Bi5a 85 d2 sta $d2 HIRES beschreibt 8.000 nisiert, als es der Drucker 
Bi5c e6 d® inc $d® len 3000 2 ee kann. Auf 
e 
BiSe dB Me bne $8162 Wert 255. Nach dem Pro- en re 
B16B e6 di inc $d1 grammstart ist in der lin- ander liegende Pixel. 
Bi62 ca dex ken oberen Bildschirm- Beim Drucker jedoch lie- 
8163 d@ ef bne $8154 ecke wieder der kurze gen die Nadeln nicht ne- 
B165 68 rts Strich zu sehen, den wir ben-, sondern unterein- 


18 rem listing 4=====-=(hardcopies) <gk> 


schon von unseren 
POKE-Versuchen her 
kennen. Links unten am 
Bildschirm wird die je- 
weils beschriebene Spei- 


ander. Würden wir die 
Zeichenmuster so an den 
Drucker senden, wie sie 
beim Rechner angeordnet 


28 rem he Erimselbeniee ABAyer <if> cheradresse in hexadezi- nd. Asse 90 auf 
3@ rem ===== za========== Ss==m=mum2 ong> maler und dezimaler Form 
: Grad gedreht. Vor dem 
48 rem maschinensprächteil <gn> dargestellt. Sobald irgend- Ausdruck ist folglich ei- 
58 rem fuer hires- <ol> eine Taste gedrückt wird, ne Konvertierung der 
ist die nächste Speicher- Zeich : h 
68 rem hardcopyprogramme <kg> adresse an der Reihe. eichenmatrix vorzuneh- 
78 Tem ========= === === === == ==02==== <po> Etwas Geduld ist vonnö- N pe a 
88 fori=312t0357 <ig> ten, soll die Organisation siert dan könnte, Dj 
. i.a: des Bildschirmaufbaus ab- MEHR EONIBERL. EIOE 
98 reada:pokei,a:next <dk> L 1 A 
: elesen werden. Nach acht- $°$ Histing ist nur als Bei 
188 data 832,078,081,168,008, 162 <mm> a zen Tasterrdriek be- spiel und nicht zum Ab- 
118 data 888,822,219,942,202,288 <gd> findet sich die kurze Linie tippen gedacht. 
120 data 250,234,234,032,210,255 <ab> in der zweiten Spalte. 
138 data 136,288,240,096, 160,008 <ej> Wie weiteres Drücken MATRIX- 
148 data 133,210,162,008,177,288 <dg> ne der Au KONVERTIERUNG 
R zeilenweise vonstatten. ——eee2 
150 data 149,210,085,210, 133,210 en Acht Linien, die jeweils AX enthalte die Anfangs- 
160 data 230,208,208,902,230,209 <jg> acht Pixel breit sind, fü- adresse des zu lesenden 
178 data 292,288,239,896 <dg? len von oben nach unten Zeichenmusters. Mit einer 
188 rem =======--=-=---= === == ======== ccon> un den a nn ae ig re 
199 basicteil i F &ni5 modus ein einzelnes Zei- te dieser und der folgen- 
>08 a. BRREER N ION BRRDSUBERR Bir“ chen auf dem Bildschirm den sieben Adressen in 
2 benötigen würde. die Variablen A(0) bis 
Solche „Zeichen“ werden A(7) eingelesen. In einer 
POKE 8195,16 Die Reihenfolge vom zeilenweise aufgebaut, weiteren Schleife mit _ 
POKE 8196,8 höchstwertigen Bit zum mit jeweils 40 „Zeichen“ J=0 bis J=7 soll das Zei- 
POKE 8197,4 niederstwertigen ent- ro Zeile. Der Bildschirm chenmuster spaltenweise 
POKE 8198,2 spricht der Reihenfolge at, wie im Textmodus, an den Drucker gesendet 
POKE 8199,1 der Pixel von links nach auch jetzt 25 Zeilen, 40 werden. Das an den Druk- 
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re Schleife umgekehrt ab- 


27 zu hs ne Eu ns er 218 rem listing 5=====(hardcopies) <oe> 
= Form der Variablen aufen, oder die Bits müß- . . 
sereitgestellt werden. ten in umgekehrter Rich- 228 rem by alfons mittelmeyer <bi> 
erzu ist aus den Varia- tung in die Variable A ge- EEE 
h nn bis ne en werden. Dr 248 rem hires-hardcopy fuer <fe> 
ss höchstwertige Bit zu stere wäre zu verwirkli- i i ie 
»otnehmen. Wir setzen chen durch die Schleife: En ur ee ie ne Eu 
5 Variable A auf den : 

#ert Null und sprechen FOR I=7 TO 0 STEP-1 278 rem nur in verbindung mit <ia> 
Surch eine weitere Schlei- 288 rem listing 4 <ap> 
= mit dem Index 1=0 Das Schieben nach rechts 298 rem ===========2=======5=====5= = <bk> 
is I=7 die indizierten Va- geschähe durch: 388 poke288,8:poke289,32 <hb> 
=zblen A(0) bis A(7) an. 318 poke325,9:poke326,128:rem ora 

>= eg Bit x IEA(N>2S6THENA n #$88 <ie> 
n die Variable A zu schie- = r 

sen. Hierzu schieben wir +128:A(I)=A(I)—256 el re FOR 
Sie Bits in den indizierten 338 open4,4:cmd4 “ı2? 
Variablen um eine Stelle Wenn wir davon ausgehen, 348 printchr$(8); <ie> 
=ach links mit A(I)=2+A daß vorher im Hauptpro- 358 forj=1t025 <of> 
I). en die an gramm der Druckerkanal 368 print <gl> 
zenden Bits für den näch- durch den CMD-Befehl ge- Fu : a ’ 

sen Durchgang bereit. öffnet worden ist, ern 378 fori 1t048:sys312:next:nextj <bo> 
Das frühere Bit sechs ist nenwirmit ERINT 388 printf4,chr$( 15) :close4 <gl> 
somit jetzt zu Bit sieben CHR$(A) unser Byte auf 398 rem ========================= 0 cag> 
zeworden und kann im den Drucker ausgeben. 488 rem programmende <hd 
nächsten Durchgang mit Nach acht Durchläufen. A1B rem ========================= 0 cgk> 
zrhöhtem J herausge- Biel Sl neh Ballen u een en en 
schoben werden. geben und es kann der gs 

Das erhaltene Bit ist jetzt Rücksprung in das auf- 218 rem listing 6====-=(hardcopies) “cc? 
in die Variable A hinein- rufende Hauptprogramm 228 rem by alfons mittelmeyer <bi> 
mit RETURN erfolgen. 230 rem ===--------========2-- (jo> 
kennt, verschieben wir PROGRAMMIEREN IN 248 rem fuer epson-kompatible <jm> 
den Inhalt von Aumeine MASCHINENSPRACHE 258 rem drucker <ag> 
Stelle nach links mit ee 268 rem <jj? 
A=A+A. Hierzu ist jetzt 64 Schiebeoperationen 278 rem nur in verbindung mit <ia> 
das aus A(I) herausge- braucht es, bevor ein gan- 280 rem listing 4 <ap> 
schobene Bit zu addieren. zes Zeichen an ‘den Druk- 298 nenne NER DRESDEN BENEREEREN r 
Wir realisieren dies ker ausgegeben ist. In TER TR Ba 
durch die IF-Abfrage: BASIC nimmt das eine 388 poke288,8:poke289, 32 <hb> 

Menge Zeit in Anspruch. 318 e$=chr$( 27) :x$=chr$( 13) +chr$( 1 
IFA(I)>255THENA=A Quälende Langsamkeit 8) <1n> 
+1:A(D=A(l)—256 Bi Be Banane y> 320 open4,4:cmd4 <hh> 
ie Folge. Es ist daher zu - „_. r 
Der Übertrag von 256, rer. ob Listing 330 printe$"a"chr$(B); Sem" 
der sich bei gesetztem Nr. 2 nicht besser durch 340 forj=1t025 <om> 
höchstwertigen Bit ergab, ein Maschinenprogramm 358 printx$e$"k"chr$( 64) chr$( 1); <kb> 
ne a Segen ERS NL an 368 fori-1to4B:sys312:next:nextj <dc> 
n wer > enntnissen aus dem Ein- : "o".n.- : 

für die weitere Bearbei- führungskurs im C16/P4- . BEER TEE ER Vers ae en 
tung nur mehr die restli-_ SPECIALNT. 3 ausge- BER EEE OI SE N EEE ec 
chen sieben Bits zur Ver- stattet, können wir uns 390 rem programmende <ko> 
fügung stehen. Nach der getrost daranwagen. 4B8 rem ====>-=---- === cjico’ 


Abarbeitung der inneren 
Schleife steht in A das an 
den Drucker zu sendende 
Byte bereit. Das höchst- 
wertige Bit aus A(0) ist 
zum höchstwertigen Bit 
in A geworden, das 
höchstwertige Bit aus A 
(7) zum niederstwertigen 
Bit in A. 


. Viele Drucker sprechen 
mit dem höchstwertigen 
Bit die oberste Nadel an, 
manche aber mit dem un- 
tersten Bit. Für den letz- 
teren Fall müßte die inne- 


Damit das Maschinenpro- 
gramm nicht mit even- 
tuellen Centronics-Routi- 
nen kollidiert, die der ei- 
ne oder andere benötigt, 
um über Centronics-Ka- 
bel an nicht COMMO- 
DORE-kompatible Druk- 
ker zu gehen, verlegen wir 
die Maschinenroutine in 
den Stack-Bereich des 
Prozessors. 

Ein Zeiger, mit dem die 
Adressen des Grafikbe- 
reichs indirekt ansprech- 
bar sind, wird benötigt. 


Dafür kommen nur die 
Adressen der Zero-Page 
in Frage. Die C16/116/ 
P4-Rechner stellen die 
Adressen $DO bis $E8 
dem Benutzer zur freien 
Verfügung. $DO und SD1 
verwenden wir als Adreß- 
zeiger. 

Unter Umständen könn- 
te es nützlich sein, ein 
Flag bereitzustellen, das 
dem BASIC-Programm 
meldet, ob ein Zeichen 
nicht gedruckt zu werden 
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braucht, weil alle acht 
Bytes vielleicht nur den 
Wert Null aufweisen. Für 
dieses Flag wählen wir die 
Adresse $D2. Die Adres- 
sen $D3 bis SDA wollen 
wir für das zu lesende 
Zeichenmuster benützen. 
Das Programmieren kann 
beginnen. 


LDY #$00 
STY $D2 


Das Flag wird auf den 


BTIPS& TRICKS cr EEE 


218 rem listing 7=====(hardcopies) <ca> STA $D2,X 
228 rem ey alfana mittelmeyer <bi> Das durch unseren Zeiger 
248 rem fuer ibm-kompatible <dk> te Byte aus dem Grafik- 
259 rem drucker <ag> bereich wird in den Akku 
268 rem <jp> geladen und in eine durch 
R n E : das Register X indizierte 
278 rem nur in verbindung mit <ia> Adresse von $DA bis- 
288 rem listing 4 . <ap> $D3 geschrieben. Warum 
298 rem ================2=2=2======== <bk> wir nicht mit $D3, son- 
388 poke288,8:pake209,32 <hb> dern $DA beginnen, wird 
318 e$=chr$( 27) :x$=chr$( 13) +chr$f 1 noch erklärt. 
8) <In> & 
328 open4,4:cmd4:printe$":"; <lo> ern 
338 printe$”"a"chr$(8)e$"2"” <ja> 
348 forj=1t025 <om>, Alle gelesenen Bytes wer- 
358 printx$e$"k"chr$( 64) chr$( 1); <kb> den geodert und das Re- 
368 fori=1t040:sys312:next:nextj <dc> Benan BEER. 
378 print#4,e$”a”chr$( 12); <1p> en an Wert 
388 print#4,e$"2"x$:close4 <me> Null, so bedeutet dies, 
398 rem ========= === === =2======2==== <ej> daß jedes gelesene Byte 
#8 rem programmende <hd> ein Null-Byte war. 
AIB rem ===== == == 22.22 == = === 2202222 = <bb> INC $Do 
218 rem listing 8=====(hardcopies) <cg> ne u 
228 rem by alfons mittelmeyer <bi> 
238 Tem ======-==2=2=22 2 222222222202. <jc> Der Adreßzeiger wird um 
248 rem universal-hardcopy <be> Eins erhöht. Wenn beim 
258 rem fuer alle drucker mit <ci> Erhöhen das Low-Byte 
268 rem definierbarem geschaefts- <ao> ded Wer Null An me, 
E B e a0 muß auch das High-Byte 
278 rem zeichen. nur in verbindung <kf> erhöht werden. Im ande- 
288 rem mit listing 4 <id> ren Fall wird der Befehl 
298 Tem ======2== === 2222 === 22220. <bk> zum Erhöhen des High- 
308 poke208,9:poke209, 32 <hb> Bytes übersprungen. 
318 x$=chr$( 13) :e$=chr$( 8) :f$=chr$ 
DEX 
(15) <pe> BNE $0154 
328 open$,4,5:0pen4,4 <md> 
338 for j=1t025 <nl> ne und Index X 
348 print#4,e$x$f$; <od> wird um ıns verringert. 
358 fori=1t049:sys334:ifpeek( 218) = Ist X anschließend noch 
Othen398 nicht Null, erfolgt der 
EnagE <bh> Sprung zum Laden des 
368 print#4,chr$( 141) ; :poke2835,5: nächsten Bytes mit LDA 
sys65481 <kd> ($DO),Y. Wenn durch 
378 sys315:print#5:1$=str$(i-1) <bm> Si das ee Null 
389 intf4a - "an . wird, so wir as ZeTO- 
een Eurer 
‚ seh Chr ; In> BNE-Befehl reagiert. 
398 next:nextj <mc> Hätten wir X dagegen in 
488 close4:closeS <dil> umgekehrter Richtung 
418 rem ==========2=2=22=2==2=2=2=2=2 222202 <bb> ee nach a Ta 
42 en lassen, wäre das nicht 
en = A “a> der Fall gewesen. Nach 
a TERN -INX hätte erst ein zusätz- 
Wert Null gesetzt. Gleich- Das X-Register ist sowohl licher ae CPX on 
zeitig soll das Y-Register Zähler für unsere Lese- eingesc 4 en werden 
zur indirekten Adressie- _schleife als auch Index ee be WIE UNS 50 
rung dienen und dabei zum Ablegen der gelese- TSpart haben. 
den Wert Nullaufweisen, nen Bytesin die dafür re- Statt X am Anfang mit 
da dabei keine Indizie- servierten Adressen $D3 LDX #$08 zu initialisie- 
rung vonnöten ist. bis $DA. ren, hätten wir genauso- 
gut LDX #$07 verwen- 
LDX #$08 LDA ($D0),Y den können. Das Spei- 
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chern wäre dann eben 

mit STA $D3,X vonstat- 
ten gegangen und die 
Schleifenendabfrage nach . 
DEX mit BPL. 


RTS 


GESONDERTE 
LESEROUTINE 


Die Routine zum Lesen 
der Bytes aus dem Grafik- 
bereich wurde als Unter- 
programm angelegt, da- 
mit sie gegebenenfalls von 
BASIC aus gesondert an- 
gesprungen werden kann, 
um zu sehen, ob etwas 
auf den Drucker ausge- 
geben werden müßte. 

Wir kommen jetzt zur ge- 
samten Routine, mit Ma- 
trixkonvertierung und 
Druckerausgabe. 


JSR $014E 


Am Anfang steht der 
Aufruf der Unterroutine 
zum Lesen der acht 
Bytes aus dem Grafikbe- 
reich. 


LDY #$08 
LDX #$08 


An Stelle der Schleifen- 
variablen J und K neh- 
men wir in Maschinen- 
sprache die Register X 
und Y. 


ASL $D2,X 
ROL 


Mit dem ASL-Befehl wird 
das höchstwertige Bit 

aus der durch X indizier- 
ten Zeile herausgescho- 
ben. Genausogut hätte 
das auch ein ROL-Befehl 
getan. Der folgende ROL- 
Befehl schiebt dieses Bit 
von rechts nach links in 
den Akku. Bei Druckern, 
die ihr Byte andersher- 
um brauchen, muß ledig- 
lich ROL gegen ROR aus- 
getauscht werden. 


DEX 
BNE $013F 


Solange X noch nicht 
Null ist, wird auf den Be- 
fehl ASL $D2,X zurück- 
gesprungen. Erst wenn 
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alle acht höchstwertigen 
Bits erfaßt sind, wird die 
Schleife verlassen. 


NOP 
NOP 


Diese zwei NOP-Befehle 
bewirken nichts. Sie reser- 
vieren nur Platz. 
Commodore-Drucker brau- 
chen die Bits in umgekehr- 
ter Reihenfolge, was ja 
leicht zu ändern ist. Au- 
Serdem drucken sie Gra- 
fik nicht mit acht, son- 
dern nur mit sieben Na- 
deln. Bit sieben, das 
höchstwertige Bit, ist hier- 
bei auf Eins zu setzen. 
Damit die Operation ORA 
=$80 in dieses Programm 
eingebaut werden kann, 
wurde der hierzu benötig- 
te Platz mit Hilfe der bei- 
den NOP-Befehle ge- 
schaffen. 


JSR FFD2 


Nachdem das Byte im 
Akku bereitsteht, kann es 
an den Drucker ausgege- 
ben werden. Die Betriebs- 
systemroutine BSOUT, 
die durch JSR $FFD2 an- 
gesprochen wird, gibt den 
Akkuinhalt auf das ge- 
wählte Ausgabegerät aus. 


DEY 
BNE $013D 
RTS 


Acht Bytes insgesamt 

sind auszugeben. Die Kon- 
trolle darüber obliegt dem 
Y-Register. Ist dieses nach 
dem Erniedrigen noch 
nicht Null, erfolgt der 
Sprung wieder auf LDX 
#$08 zum Ausgeben des 
nächsten Bytes. Anson- 
sten hat das Maschinen- 
programm ein vollständi- 
ges Zeichen an den Druk- 
ker gesandt und damit 
seinen Dienst beendet. 
Der Rücksprung in das 
aufrufende Programm, das 
in unserem Fall ein BA- 
SIC-Programm sein wird, 
erfolgt. 


. Listing Nr. 3 gibt das so- 
eben besprochene Ma- 
schinenprogramm wieder. 
Darin lassen sich auch die 
Sprungadressen verfolgen. 
Damit nicht der Maschi- 


nenteil und der noch zu 
erstellende BASIC-Teil 
getrennt geladen werden 
müssen, empfiehlt sich 
die Wandlung in DATA- 
Zeilen mit dem DATA- 
WANDLER. Wir haben 
dies bereits in Form von 
Listing Nr. 4 für Sie er- 
ledigt. 


HARDCOPYROUTINE 
Da ein Großteil der An- 


wender wohl einen 
COMMODORE-Drucker 
oder weitgehendst Kom- 
patiblen ihr eigen nennen 
werden, soll als erstes die 
Hardcopy mit einem gra- 
fikfähigen Commodore- 
Drucker besprochen wer- 
den. Hierfür ist das Ma- 
schinenprogramm in eini- 
gen wenigen Punkten zu 
modifizieren, was mit 
POKE-Befehlen bewerk- 
stelligt werden kann. 


POKE 321,106 


Damit wird der ROL-Be- 
fehl an Speicherstelle 
$0141 durch den Code 
für den ROR-Befehl über- 
schrieben. Der Commo- 
dore-Drucker steuert im 
Grafikbetrieb nur sieben 
Nadeln an. Mit unserer 
einfachen Hardcopy wer- 
den wir wohl oder übe: 
auf die achte Linie jedes 
Zeichens verzichten müs- 
sen. Zu ihrem Druck be- 
darf es eines aufwendige- 
reren Programmes, das 
bei der nächsten zu druk- 
kenden Zeile das oder die 
übrig gebliebenen Bytes 
der vorhergehenden Bild- 
schirmzeile mit über- 
nimmt. Dafür gibt es be- 
reits HIRES-HARD- 
COPY aus dem C16/P4- 
SPECIAL Nr. 1. Wir dür- 
fen beim Commodore- 
Drucker nicht vergessen, 
Bit sieben des an den 
Drucker auszugebenden 
Codes zu setzen. 


POKE 325,9:POKE 326, 
128 


Der Operationscode für 
ORA #$ entspricht dem 
Zahlenwert 9. Mit diesem 
Wert ist der NOP-Befehl 
an Adresse $0145 zu 


rem 1 
28 rem 
rem = 


48 rem f 


58 


rem 2 
68 rem 


78 rem = 
88 fori=312t0366 


98 

188 
118 
128 
138 
140 
158 
168 
178 
188 
198 
288 
218 
228 


18 rem 
28 rem 


reada: 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


isting 9======(hardcopies) 


by alfons mittelmeyer 


uer druckdichte von 
48 dots/zoll. 


maschinensprachteil 


pokei,a:next 
832,078,881, 168,888, 162 
008,022,210,042,202,288 
250,234,234,032, 182,801 
136,208,240,096, 168,088 
133,218, 162,088, 177,288 
149,218,005,218, 133,218 
238,208,208,002,230,289 
202,208,239,896,832,218 
255,832,218,255,876,218 
255 


centronic=============p]us4 
(p) commodore welt team 


48 rem 


58 rem 


68 rem 


7a rem g 


88 rem 
rem = 


fori 
read 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
fori 
read 


{c) by alfons mittelmeyer 


besonders geeignet fuer 


rafikprogramme, da keine 


codewandlung stattfindet 


=1815 to 1868 
a:pokei,a:next 
72,165, 153,281,3,288,43 
165, 173,281,116,288,37 
184,76,19,4,72,32,247,3 
184,96,18,32,19,4, 194,141 
16,253, 169,8, 141,2,253 
169,8,141,2,253,169,32,44 
1,253,248,251,24,96, 104 
76,75,236,166,174,224,4 
288,8, 162,3,134, 174,162 
116, 134,173,76,166,6, 166 
173,224,116,288,4,162,8 
134,173,32,12,239, 162,8 
134,173,96,32,83,239,76 
161,6,32,93,238,76, 161,6 
=1667 to 1713 
a:pokei,a:next 


poke792,131:poke793,6 
poke888, 148:poke881,6 
poke804 ,088:poke885,4 
poke794,172:poke795,6 


<nb> 
<if> 
ng> 
<eo>: 
<he> 
<pj> 
<po> 
<ih> 
<dk> 
<mm> 
<gd> 
<kd> 
<ej? 
<dg> 
<im> 
<jg> 
<im> 
<ae> 
<gi> 
<ne> 
<ac> 
<hm> 


<bb> 
<ho> 
eng> 
<cg> 
<pd> 
<bd> 
<bd> 
<ni> 
<jg> 
<dg> 
<ne> 
<pp> 
<th> 
<in> 
<pb> 
<gh> 
<pp> 
<ne> 
<in> 
<on> 
<nk> 
<fc> 
<gl> 
<oj> 
<pk> 
<mc> 
<jj? 
<gh> 
<cn> 
<da> 
<lo> 


==== <cf> 


ETIPS& TRICKS EEE EEE EEE 


18 rem centronics==============616 <hl> 
28 rem (p) commodore welt team <ho> 
38 rem ======---==-==2=2============ cng> 
AB rem (c) by alfons mittelmeyer <cg> 
58 rem nur in verbindung mit dem <hj> 
68 rem centronics-interface aus <oa> 
78 rem c16-p4-spezial nr.1. <pf> 
88 rem besonders geeignet fuer <bk> 
98 rem grafik-programme <ak> 
180 rem ==================2======== <jd> 
118 fori=1926t01967 <pf> 
128 reada:pokei,a:next <ag> 
138 data 972, 133,245, 165,881, 162 <dd> 
140 data 9908,099,003,006,245, 144 <kp> 
159 data 002,841,253, 133,901, 841 <hi> 
168 data 254,133,091,202,208,239 <np> 
178 data 909, 084,133,001,841,249 <ml> 
188 data 133,981,036,001,880,252 <np> 
198 data 924, 174,001,084, 184,896 <el> 
288 fori=1659t01729 <bh> 
218 reada:pokei,a:next <ap?> 
228 data 972,165, 153,281,083,288 <gh> 
238 data 868, 165, 173,281, 116,298 <bd> 
248 data 854, 104,142,801,8084,876 <al> 
258 data 992,084, 166, 174,224,094 <oo> 
268 data 288,988, 162,083, 134,174 <11> 
278 data 162,116, 134, 173,876, 178 <ig> 
288 data 996, 166, 173,224, 116,288 <of> 
298 data 884, 162,008, 134, 173,832 <gl> 
388 data 812,239, 162,090, 134,173 <1j> 
318 data 996,032,083,239,976, 173 <af> 
328 data 086,032,093,238,876, 173 <nl> 
338 data 996, 104,076,875,236 <go> 
348 fori=818t0858 <ai> 
358 reada:pokei,a:next <di> 
368 data 169,168, 141,032,083, 169 <ni> 
378 data 8806, 141,033,883, 169, 143 <dd> 
388 data 141,024,083, 169,886, 141 <ef> 
398 data 025,003, 169, 184, 141,826 <1d> 
408 data 883, 169,886, 141,827,083 <ag> 
418 data 169,123, 141,036,083, 169 <aa> 
428 data 996, 141,937,003,896 <jn> 
438 sys81ß:new <lc> 
448 rem ======================222= ckf> 
458 rem programmende <pc> 
460 rem =======-=============2202==== (jk> 


überschreiben. Das Byte 
im Akku ist mit dem 
Wert $80 zu odern, da- 
mit Bit sieben gesetzt 
wird. Erreicht wird dies 
durch POKEn des Wer- 
tes 128, der die dezima- 
le Entsprechung zu $80 
ist, in die nachfolgende 
Speicherzelle $0146 
(dezimal 326). Das Ma- 
schinenprogramm ist jetzt 


an den Commodore-Druk- 
ker angepaßt. 


INITIALISIERUNG 


DES ZEIGERS 


Das Maschinenprogramm 


verwendet den inhalt der 
Adressen $DO und $Di 
als Zeiger zum Lesen des 


jeweils nächsten Zei- 


chens. Vor dem Start 


der Hardcopy ist der Zei- 
ger auf den Anfang des 
Grafikbereiches $2000 
einzustellen. 


ee 208,0:POKE 209, 


Dezimal ergibt $DO den 
Wert 208. Der in die fol- 
gende Speicherstelle zu 
POKEnde Wert $20 er- 
gibt dezimal 32. 


ÖFFNEN DES 
DRUCKERKANALS 


Der Drucker muß mit 
dem OPEN-Befehl als Da- 
tei angemeldet sein. Da- 
mit er als Ausgabegerät 
auch für die BSOUT-Rou- 
tine des Maschinenpro- 
gramms bereitsteht, ist 
der Druckerkanal mit 
dem CMD-Befehl zu 
öffnen. 


OPEN 4,4:CMD4, 
CHR$(8); 


Folgt auf den CMD-Be- 
fehl ein Komma, so wird 
der Rest danach genau 
wie bei einem PRINT-Be- 
fehl ausgegeben. Mit 
CHR$(8) stellen wir den 
Drucker auf Grafik um. 
Codes, die größer oder 
gleich 128 sind, Bytes 
mit gesetztem siebten 

Bit also, steuern jetzt di- 
rekt die obersten sieben 
Nadeln an. 

Gleichzeitig erfolgt der 
Zeilenvorschub in kürze- 
ren Abständen, so daß die 
nächste Druckzeile ohne 
Zwischenraum an die 
vorhergehende anschließt. 


AUSGABE 
AN DEN DRUCKER 


Die Ausgabe gestaltet sich 


recht einfach. Es sind 25 
Zeilen zu jeweils 40 Zei- 
chen an den Drucker zu 


‚senden. 


FOR J=1T025:PRINT 
FORI=1T040:SYS312: 
NEXT:NEXT]J 


Vor jeder Zeile bewirken 
wir mit PRINT einen Zei- 
lenvorschub. Mit SYS 
312 wird das Maschinen- 
programm an Adresse 
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50138 (dezimal 312) auf- 
Bauen; das genau ein 
eichen ausgibt. 


PRINT#4,CHR$(15) 
:CLOSE4 


Mit PRINT#4,CHR$(15) 
schalten wir den Drucker 
wieder auf Text um, ge- 
ben einen zusätzlichen 
Wagenrücklauf und Zei- 
lenvorschub aus, da kein 
Strichpunkt folgt, und 
schließen den Druckerka- 
nal. Die CLOSE-Anwei- 
sung beseitigt den Eintrag 
des logischen Files. 
Listing Nr. 5 enthält den 
BASIC-Teil der Hardco- 
py für grafikfähige Com- 
modore-Drucker. Er ist 
an den in DATA-Zeilen 
gewandelten Maschinen- 
teil anzubinden. 


IBM- und Epson-Drucker 
können mit acht Nadeln 
drucken. Es braucht da- 
her keine Linie unterschla- 
gen zu werden. Da für 
den Acht-Nadel-Drucker 
jedes Bit des zu senden- 
den Bytes zur Nadelan- 
steuerung dient, ergibt 
sich die Frage, wie wie- 
der in den Normalmodus 
umgeschaltet werden 
kann. Durch einen Steu- 
ercode wohl kaum, 
denn jeder Code wird als 
Bitmuster verstanden. 

So wird hier ein etwas 
anderer Weg eingeschla- 
gen. Den Steuercodes 
zum Umschalten auf Gra- 
fik folgen zwei Bytes, die 
angeben, wieviel Daten- 
Bytes darauf im Grafikmo- 
dus ausgegeben werden 
sollen. Nach Ausgabe die- 
ser Anzahl kann der 
Drucker wieder ASCII- 
Codes und Steuercodes 
interpretieren. Mehr Fle- 
xibilität erlauben IBM 
und Epson, da der Zei- 
lenabstand frei wählbar 
ist. 


POKE 208,0:POKE 209, 


E$=CHR$(27):X$= 
CHR$(13)+CHR$(10) 


= 
END 


Der Adreßzeiger muß 
wieder auf den Grafikan- 
fang gesetzt werden. Das 
Programm wird kürzer 
und übersichtlicher, 


wenn mehrfach auftreten- 
Ze Steuercodes als String- 
wrıablen definiert wer- 
Zen. Ist der automatische 
=ilenvorschub bei Wa- 
=nrücklauf eingestellt, 

> darf X$ nicht zusätz- 
Sch den Steuercode für 
_inefeed enthalten. 
xS=CHR$(13) darf esin 
>esem Fall nur heißen. 


i Wu 


IPEN4,4:CMD4,E$"A“ 
CHR$(8); 


‚lit Escape und A wird 
Ser Zeilenabstand ge- 
#ählt. Das folgende Byte 
= gibt diesen in n/72 Zoll 
wieder. Für n können Wer- 
<= von Null bis 85 ge- 
wählt werden. Da der Ab- 
stand der Nadeln vonein- 
ander 1/72 Zoll beträgt 
und mit acht Nadeln ge- 
druckt wird, wählten wir 
den dafür richtigen Zei- 
enabstand 8/72 Zoll. 


PRINTE$‘2“; 


Dieser Steuercode ist nur 
für den IBM-Drucker er- 
forderlich. Der vorher an- 
sewählte Zeilenabstand 
wird erst durch diesen 
Befehl aktiviert, beim 
Epson-Drucker hingegen 
sofort. 

ESC und “2‘“ würden den 
Zeilenabstand beim Ep- 
son-Drucker auf 1/6 
stellen, was wir hier 

nicht brauchen können. 


FORJ=1T025 
PRI TXSES"K"CHRS 
(64)CHR$(1); 


Mit X$ wird der Zeilen- 
vorschub realisiert. Da- 
nach ist dem Drucker zu 
melden, daß er in Grafik 
mit einer bestimmten 
Dichte drucken soll. Vier 
verschiedene Dichten 
stehen für den IBM- 
Drucker zur Auwahl. Der 
Epson-Drucker kennt dar- 
über hinaus noch fünf 
weitere. Die Druckpunk- 
te, die der Drucker zu 
Papier bringt, heißen 
nicht Pixel wie beim Bild- 
. schirm, sondern Dots. 
Nachstehend finden Sie 
die Anwahl der vier Dich- 
ten, die sowohl IBM- als 
auch Epson-Drucker 
kennen. 


ESCK = 60 Dots/Zoll 
ESCL = 120 Dots/Zoll 
ESC Y = 120 Dots/Zoll 
ESC Z = 240 Dots/Zoll 
Mit ESC Y erfolgt der 
Ausdruck in doppelter Ge- 


schwindigkeit als mit 


ESC.K. Der Nachteil hier- . 


bei ist, daß direkt neben- 
einander liegende Druck- 
punkte unterschlagen 
werden. Von zwei sol- 
chen Punkten, die 
schwarz zu Papier kom- 
men sollten, bleibt einer 
also weiß. 

Die Anzahl der horizon- 
tal zu druckenden Punk- 
te pro Zeile wird im An- 
schluß an die Dichteaus- 
wahl mit Hilfe zweier 
Bytes angegeben. Low- 
Byte 64 und High-Byte 
eins sind 64+256=320, 
was 40 Zeichen mit je 
acht Pixeln entspricht. 


FORI=1T040:5YS312 
:NEXTI: nl, 
PRINTE$“A“ R$(12); 
Das Ende des Programms 
vollzieht sich analog zur 
Hardcopy mit dem Com- 
modore-Drucker. Mit 
ESC A und der Größen- 
angabe stellen wir beim 
IBM-Drucker 12/72 
= 1/6 Zoll Zeilenabstand 
ein, was der Standard für 
Textdruck ist. Beim Ep- 
son-Drucker kann entwe- 


. der dieser Befehl oder der 


folgende entfallen. 


PRIN TE$“2“; 


Dieser Befehl aktiviert den 
eingestellten Zeilenab- 
stand beim IBM-Drucker. 
Beim Epson-Drucker 

stellt er immer den Stan- 
dardabstand von 1/6 Zoll 
ein. 


PRINT#4,X$;:CLOSEA4 . 


Wir schließen nach dem 
Senden von Wagenrück- 
lauf und Zeilenvorschub 
den Druckerkanal. Mit 
CLOSE wird der Eintrag 
in die File-Tabelle besei- 
tigt. 

Zusammengefaßt finden 
Sie die Programme für 
IBM- und Epson-Drucker 
als Listing Nr. 6 und 

Nr. 7 im Anhang. 


Eine Hardcopy für nicht 
grafikfähige Drucker, das 
gibt es doch nicht, wird 
manch einer sagen. Wir 
haben uns ein Verfahren 
überlegt, das sowohl auf 
nicht grafikfähigen Com- 


UNIVERSAL-HARD- 


COPY AUCH FÜR 
NICHT: GRAFIK- 
FÄHIGE DRUCKER 


modore-Druckern funk- 
tioniert als auch mit den 
vielen nur teilweise Com- 
modore-kompatiblen 
Druckern zusammenarbei- 
tet, die vielleicht den 
Textmodus von Commo- 
dore noch richtig emulie- 
ren, deren Grafik aber an- 
ders anzusteuern ist. 
Normalerweise wird es 
Epson- oder IBM-Grafik 
sein, kann aber auch an- 
dersartig angesteuert wer- 
den. 


POKE 208,0:POKE209, 


32 
OPEN5,4,5:OPEN4,4: 
PRINT#4,CHR$(8); 


Die letzte Zeile bringt an 
den Tag, was wir vorha- 
ben. Mit Sekundäradres- 
se fünf läßt sich ein Zei- 
chen, das sogenannte Ge- 
schäftszeichen, vom Be- 
nutzer frei definieren. 
Mit dem Code CHR$ 
(254) kann dieses Ge- 
schäftszeichen dann un- 
ter anderer Sekundär- 
adresse zu Papier ge- 
bracht werden. Wenn ein 
nicht grafikfähiger Druk- 
ker allerdings mit CHR$ 
(8) nicht einmal einen 
kürzeren Zeilenabstand 
einstellen kann, sieht die 
Hardcopy ein wenig ge- 
stückelt aus, da weiß 
gebliebene Linien den 


- Ausdruck zerteilen. 


Ein Problem gilt es noch 
zu lösen. Die Definition 
des Geschäftszeichens 
darf nur am Zeilenan- 
fang erfolgen und gilt 
dann für die ganze Zeile. 
Im Druckerhandbuch 
steht, daß verschiedene 
Geschäftszeichen nur 
durch mehrfaches Über- 
drucken derselben Zeile 
möglich seien. 
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TIPS & TRICKSE 


FORJ=1T025:PRINT#4 
FORI=1T040:5YS334 
IFPEEK(210)=0THEN... 


Mit SYS334 werden die 
Daten nur gelesen, und 
es wird erfaßt, ob über- 
haupt etwas zu drucken 
wäre. Ist dies nicht der 
Fall, was mit dem PEEK- 
Befehl festzustellen ist, 
so überspringen wir die 
eigentliche Druckerrou- 
tine. Nötig wäre dieses 
Vorgehen nicht, doch er- 
sparen wir dadurch dem 
Drucker Arbeit. Grafiken, 
die mehrere Leerzeilen 
und viele leere Zeichen 
enthalten, kommen so 
schneller auf das Papier. 


PRINT#4,CHR$(141);: 
CMD 5,;:5YS315 


Mit CHR$(141) erfolgt 
ein Wagenrücklauf ohne 
Zeilenvorschub. Nach- 
dem der Druckkopf sich 
am Zeilenanfang befin- 
det, kann auf Sekundär- 
adresse fünf umgeschal- 
tet und mit SYS315 das 
Zeichenmuster gesendet 
werden. Das Komma und 
der Strichpunkt bei der 
CMD-Anweisung sind 
wichtig, damit der Druk- 
ker nicht als erstes Bit- 
muster den Return-Code 
erhält. Das letzte Bitmu- 
ster würde den Drucker 
außerdem in Verwirrung 
bringen. 


PRINT#5: one 


“0“+STR$ 2) 
PRINTEACh Ri )A$ 


3 


an NE TJ 


Mit PRINT#5 wird die 
Zeichendefinition been- 
det. Die Tabulatorfunk- 
tion CHR$(16) verwen- 
den wir, um den Druck- 
kopf auf die richtige Stel- 
le in der Zeile zu fahren. 


Die Position muß im An- 
schluß durch eine zweistel- 
lige ASCII-Zahl angege- 
ben werden. Die Berech- 
nung erfolgt durch die 
STR$-Funktion. Ist das 
Ergebnis nur einstellig, 
so setzen wir die Ziffer 
Null davor. Die RIGHTS$- 
Funktion sorgt in jedem 
Fall für die richtige Län- 


BTIPS & TRICKS 


ge. Nach der Positionsan- 
gabe A$ brauchen wir nur 
noch den Code CHR$ 
(254) zu senden, um das 
definierte Zeichen zu Pa- 
pier zu bringen. 

Bei der Definition des 
Zeichens fährt der Druck- 
kopf nicht bis zum An- 
schlag zurück, da der 
Drucker so intelligent ist, 
zu warten, ob nicht etwa 
wieder eine gegenläufige 
Bewegung erfolgen soll. 
Dennoch ruckelt der 
Druckkopf bei den mei- 
sten Druckern ganz schön 
hin und her. Aus diesem 
Grunde hatten wir auch 
für eine teilweise Ent- 
lastung gesorgt. 


PRINT#4,CHR$(15): 
CLOSE4:CLOSE 


Das Beenden der Routine 
erfolgt wie gewohnt. Das 
Programm finden Sie als 

Listing Nr. 8 im Anhang. 


EXOTENDRUCKER 
MCS801 


Obwohl der Farbdrucker 
MCS801 auch ein Commo- 
dore-Drucker ist, ist er, 
was Grafik angeht, keines- 
wegs kompatibel. 


GESCHÄFTSZEICHEN- 
MODUS ’ 


Das Universalprogramm 
für nicht grafikfähige 

. Drucker sollte doch ei- 
gentlich auch für den 
MCS801 Gültigkeit ha- 
ben, da hier der Ge- 
schäftszeichenmodus ge- 
nutzt wird. Doch ist dies 
eine Täuschung. Die Zei- 
chen werden umgedreht 
wiedergegeben. Was zu 
tun ist, wissen wir aber 
bereits. Mit POKE 321, 
106 sorgen wir für die 
richtige Wiedergabe. 


GRAFIKMODUS 


Beim Drucken im Grafik- 
modus ist zu beachten, 
daß dieser ähnlich wie 

bei Epson oder IBM an- 
gesteuert wird. Jedoch ist 
die Befehlssequenz eine 
andere. Die Anzahl der zu 
druckenden Punktreihen 
pro Zeile ist nicht im 


Byte-Format anzugeben, 
sondern als dreistellige 
ASCII-Zahl. Damit würde 
die Sequenz am Anfang 
einer Druckzeile lauten: 


PRINTX$E$“K320“; 
Epson- und IBM-Drucker 


- erfordern dagegen: 


PRINTX$E$‘K“CHR$ 
(64)CHR$(1); 


Einfacher und einpräg- 
samer ist für den Anwen- 
der sicherlich die Ansteu- 
erung des MCS-801. Auf 
einen Blick ist zu sehen, 
daß horizontal 320 Punk- 
te gedruckt werden sollen. 
Zum Nachschlagen, wie 
der richtige Zeilenabstand 
von 8/72 Zoll eingestellt 
wird, verwenden Sie bitte 
Ihr Druckerhandbuch. 


WARUM DER KREIS 


ZUR ELLIPSE WIRD 


Auf das richtige Verhält- 


nis von Höhe und Breite 
kommt es an. Wenn es 
nicht stimmt, ist nicht 
der Computer daran 
schuld, sondern der Druk- 
ker. Genauer gesagt, die 
Software, die den Druk- 
ker ansteuert. Meist läßt 
sich für die richtige Wie- 
dergabe etwas tun. 
Wählen wir die normale 
Grafikdichte von 60 Dots/ 
Zoll, so wird der Aus- 
druck zu breit. Der verti- 
kale Nadelabstand be- 
trägt nämlich 1/72 Zoll, 
was einer Dichte von 

72 Dots/Zoll entspricht. 
Beim Commodore-Druk- 
ker im Grafikmodus gilt 
somit das Verhältnis: 


Breite/Höhe=1.2 


In der in diesem Artikel 
vorgestellten Hardcopy, 
bei der wir eine Linie pro 
Zeile wegließen, ist es gar 
noch schlechter: 


8/60*72/7=1.37 


Auch für den Commo- 
dore-Drucker gibt es die 
Möglichkeit, Breite und 
Höhe im Verhältnis eins 
zu eins darzustellen. 
Wenn Sie die Hardcopy 
für den Geschäftszeichen- 


modus ausprobiert ha- 
ben, so sollten Sie es be- 
reits beobachtet haben. 
Im normalen Schrift- 
modus gibt der Drucker 
zehn Zeichen pro Zoll 
aus. Ist nicht NLQ ge- 
wählt, wird das Zeichen 
im Normalfall mit einer 
Dichte von 60 Dots/Zoll 
gedruckt, so daß in der 
Breite nur sechs Punkte 
dafür zur Verfügung ste- 
hen. Bei einigen Druckern 
wie dem MCS-801 kann 
im Schriftmodus auch ei- 
ne größere Dichte vorlie- 
gen, weswegen vielleicht 
bei ihnen die Grafik- 
Hardcopy bereits richtig 
kommen könnte. 
Dieselbe Dichte bekom- 
men wir beim normalen 
Drucker mit dem definier- 
baren Geschäftszeichen. 
Dieses Zeichen ist eben- 
falls ein zehntel Zoll breit, 
besteht jedoch aus acht 
horizontalen Punkten. 
Die Druckdichte beträgt 
somit 80 Dots pro Zoll. 
Bei 7/72 Zoll Zeilenab- 
stand wird die unterste 
Linie einer Zeile noch- 
mals mit der obersten der 
nächsten Zeile überdruckt. 
Unser Zeichen ist also 
8/80 Zoll breit und 7/72 
Zoll hoch. 


8/80*72/7=1.03 


Der Dehnungsfaktor von 
1.03 fällt überhaupt 
nieht ins Auge. Damit ist 
für Commodore-Druk- 
ker alles klar. 


EPSON-DRUCKER 


BESTENS AUS- 
GESTATTET 


Keinerlei Klimmzüge 
braucht es beim Epson- 
Drucker. Speziell für 
Hardcopies und Bild- 
schirmplots hat dieser 
auch eine Druckdichte 


‚von 72 Dots/Zoll, wo- 


durch vertikaler und ho- 
rizontaler Dot-Abstand 
genau gleich sind. Die 
Befehlssequenz, um wei- 
tere Druckdichten als 

es der IBM-Drucker 
erlaubt, einzustellen, 
lautet: 


ESC *» m nl n2 
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Der Wert von m legt da- 
bei die Druckdichte fest. 


Dichte 


60 Dots/Zoll 
120 Dots/Zoll 
120 Dots/Zoll 
240 Dots/Zoll 

80 Dots/Zoll 

72 Dots/Zoll 

90 Dots/Zoll 


=) 


u PBon-o© 


Die ersten vier Dichten 
von m=O bis m=3 entspre- 
chen den bereits bekann- 
ten, die auch durch ESC 
K,ESC L,ESC Y und 
ESC Z erzeugt werden 
können. Die restlichen 
Dichten sind für Grafik- 
Hardcopies mit verschie- 
denen Rechnern vorge- 
sehen. Einige Beispiele: 


Commodore 

72 Dots/Zoll 
Epson-QX-10 

80 Dots/Zoll 
DEC- 


Computer90 Dots/Zoll 


Auf m als Dichteparame- 
ter muß auch hier wieder 
die Anzahl der zu druk- 
kenden Datenbytes fol- 
gen. Wir ändern im 
Epson-Listing daher: 


PRINTXS$E$‘+““chr$(5 
ne 3) 


TRICK FÜR 
IBM-DRUCKER 


Über die Druckdichte 72 
Dots/Zoll verfügt der 
IBM-Drucker nicht. Wenn 
wir 80 Dots/Zoll errei- 
chen könnten, könnten 
wir dasselbe Verfahren 
anwenden wie bereits bei 
den Commodore-Druk- 
kern. Ein Trick hilft hier 
weiter: Wir stellen die 
Druckdichte auf 240 
Dots/Zoll und geben jedes 
Datenbyte dreimal hinter- 
einander aus. Den Zeilen- 
abstand stellen wir außer- 
dem auf 7/72 Zoll. 


OPEN4,4:CMD4,ES“A“ 
CHRS(7); 
PRINTXSES‘Z“CHRS 
(192)CHRS(8); 


Welche Zeilen im IBM- 
Listing zu ersetzen sind, 
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ülrfte unschwer zu er- 
iennen sein. Die dreima- 
sze Ausgabe jedes Daten- 
wird am besten im 

\zschinenprogramm VOT- 
=nommen. Der Ausga- 
sebefehl BSOUT, JSR 
S=FD2 wird einfach 
Zurch einen Sprung in ei- 
>= Unterroutine ersetzt, 
ı welcher steht: 


ISR $FFD2 
SR $FFD2 
MP $FFD2 


Diese neue Maschinenrou- 
üine finden Sie als Listing 
Sr. 9im Anhang. 


KLEINER, GRÖSSER, 


DICHTER 


Die Punkte, die bei der 


vorangegangenen Hard- 
>opy dicht beieinander- 
begen, lassen die Zwi- 
schenräume fast ver- 
schwinden. Wenn der ver- 
tikale Nadelabstand eben- 
falls verringert würde, so 
würden schwarze Flä- 
chen ihren Pünktchencha- 
rakter verlieren und bei- 
nahe als gefüllte Flächen 
wirken. Eine solche Hard- 
copy sieht wesentlich 
besser aus. 

Durch mehrfaches Druk- 
ken von Datenbytes und 
Zeilen lassen sich ver- 
srößerte Hardcopies er- 
zielen. Größere Dichte 
und Zeilenabstände von 
1/216 Zoll machen Ver- 
kleinerungen möglich. 
Mehr darüber gibt es im 
nächsten SPECIAL, im 
zweiten und letzten Teil 
dieser Folge. 

Probleme können bei 
Centronics-Druckern mit 
Commodore-Interface 
auftreten. Ein gutes Inter- 
face läßt die Umschal- 
tung in den Epson- oder 
IBM-Modus zu. Ein 
schlechtes arbeitet bei 
Grafik vielleicht fehler- 


haft oder erlaubt nur den 
Commodore-Modus. Wer 
alle Möglichkeiten seines 
Druckers ausschöpfen 
möchte, sei nochmals auf 
das Centronics-Kabel für 
den Plus/4 und an das 
Centronics-Interface für 
den C16 hingewiesen, 
worüber wir in der COM- 
MODORE WELT Nr. 12/ 
88 und im C16-P4-SPE- 
CIALNTr. ] berichteten. 
Das Centronics-Kabel gibt 
es mittlerweile bei Rex- 
Datentechnik, die Be- 
zugsadresse für das Inter- 
face können Sie bei uns 
erfragen. Da die Treiber- 
software für den Text- 
modus gedacht und mit 
ASCII-Wandlung, auto- 
matischem Zeilenvor- 
schub bei Return oder 
Unterdrückung des ASCII- 
Codes 17 ausgestattet war, 
finden Sie im Anhang die 
Centronics-Software für 
den Grafikmodus. 


Auf einen Fehler in der 
Beschreibung des Inter- 
face für den C16 müssen 
wir die Selbstbauer hin- 
weisen. Wir verwechselten 
die Leitungen Strobe und 
Busy. Tauschen Sie da- 
her am Druckerstecker die 
Leitung an Pin eins gegen 
die an Pin 11 aus. Pin drei 
des seriellen Ports muß an 
Pin eins des Druckerports 
und Pin elf des Drucker- 
ports an den Eingang des 
Inverters gelegt werden. 
Am günstigsten ist, zuerst 
das Programm mit der Gra- 
fik aufzurufen und es an 
der gewünschten Stelle zu 
unterbrechen. Dann ist die 
Centronics-Software zu 
laden und zu starten, da- 
nach erst die Hardcopy- 
‚routine. Vorher drucken 
ist ja nicht möglich. 
Weiter geht es im näch- 
sten Heft mit kleineren, 
größeren und dichteren 
Hardcopies. am.O 


Alle Listings auf 


Diskette für 
nur 30 DM 


EEE LISTINGS 


u Ontik 
für Ihre 
Zahlen 


Übersichtlich und anschaulich präsentieren sich 
sonst nichtssagende Zahlen, wenn sie in Form von 
Balken-, Kreis- und X-Y-Diagrammen für das Auge 

aufbereitet werden. Keine besonderen An- 
strengungen sind für die grafische Ausarbeitung von- 
nöten, sondern nur das vorliegende Programm. 


Das Programm Diagramm 16 bietet die Möglichkeit, 
Zahlenangaben (zum Beispiel Statistiken) in an- 
schaulichen und übersichtlichen Grafiken darzu- 
stellen. 

Prinzipiell stehen drei verschiedene Diagramme zur 
Auswahl, deren Verwendung durch Art und Umfang 
der darzustellenden Werte bestimmt wird. 

Nach dem Start des Programmes wird zunächst eine 
Maschinenroutine zum Laden und Speichern von 
Hires-Bildern eingelesen und im Kassettenpuffer ab- 
gelegt. 

Danach gelangt man in das Hauptmenü mit den 
Punkten: 

. Demos 

. Balkendiagramm 

. Kreisdiagramm 

. x-y-Diagramm 

. Laden/Speichern 

. Programmende 


AN PWD- 


1. Demos 


Man gelangt in ein Untermenü, aus dem heraus zu je- 
dem der drei möglichen Diagramme eine Demo abge- 
rufen werden kann. Hierdurch gewinnt man am 
schnellsten einen Überblick über die Einsatzmöglich- 
keiten der Grafiken. Durch Druck einer Taste wird 
anschließend wieder das Hauptmenü angesprungen. 


2. Balkendiagramm 


Nach einer kurzen Einleitung werden folgende Einga- 
ben verlangt: 

@® Überschrift der Grafik (maximal 40 Zeichen lang); 
® Maßeinheit der Zahlenwerte; 

® Anzahl der darzustellenden Balken (1 bis 6); 

@ Zahlenwerte (1 bis 6) und deren Bezeichnung. 
Anschließend wird die Grafik aufgebaut. Die Balken 
werden räumlich umrissen und farblich unterschieden. 
Überschrift, Maßeinheit, Zahlenwerte und Bezeich- 
nung werden durch CHAR-Befehle plaziert. Durch 
Druck einer Taste gelangt man wieder in das Haupt- 
menü. 


3. Kreisdiagramm 


Das Kreisdiagramm stellt Prozentzahlen als Segmente 
eines aufgesprengten Vollkreises dar. 

Auf eine kurze Einleitung folgt die Eingabe der unter 
2. beschriebenen Punkte, wobei die Angabe der Maß- 
einheit entfällt. Es können bis zu sechs Prozentzah- 
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len und deren Bezeichnungen eingegeben werden. Die 18 rem diagramm=====-==----=====p4 cp]> 
Summe der Prozentangaben darf 100 Prozent nicht 28 rem (p) commodore welt team <ho> 
überschreiten, sonst Kun Ze a WeEr- 38 rem =========-========2====2====== ng> 
den. Angaben kleiner als 5 Prozent sollten vermieden 48 rem (c) by henning kogli nl 
werden, da sonst Fehler in der Grafik auftreten kön- 50: rom 2 a a an . 
nen. Nach Abschluß der Eingaben wird das Bild er- Er ae p 
stellt. Die Segmente werden umrissen und ausgefüllt. rem basic v3.5 <od> 
Die Prozentangaben erscheinen neben dem jeweili- 78 rem plus4 (c16/116 + 64 kb) <cd> 
gen Kreisausschnitt, die Bezeichnungen in den unte- 88 rem Floppy <ak> 
ren Bildschirmzeilen. Auch hier wird nach dem Drük- 98 rem ============2=2=2=2=2=2====2====== <jg> 
ken einer Taste wieder in das Hauptmenü gesprungen. 100 g0sub2390:rem maschinencode änh> 
4. x-y-Diagramm ds rem <ip> 
Br ; ; z h <po> 
Mit diesem Diagramm kann der Verlauf eines bestimm- 138 vs ee a 
ten Zahlenwertes über der Zeit (ein Jahr) aufgezeigt zum J 
werden. Die x-Achse ist die Zeitachse. Sie umfaßt ein 148 senelr:clr:gosub2558:color®, 1: 
Jahr, unterteilt in die zwölf Monate. Die y-Achse kann color4,1:color1,7,5 <no> 
mit einer beliebigen Maßeinheit belegt werden. Die 158 dimp( 12) :dimpr( 12) “any 


einzelnen Zahlenwerte dürfen nicht mehr als fünf Stel- 


len umfassen. 168 chari1,11,8,rn$+"diagram 


Nach einer kurzen Einleitung erfolgen die bereits be- m e"+rf$ <be> 
schriebenen Eingaben, wobei den einzelnen Werten 178 charl,11,3,"1.demos»ä...,4:« fr 
ar er einge, nn zen men hrif :char1,11,5,"2.balkendiagramm.” <od> 
unächst werden die Achsen gezeichnet und beschrif- "3 kreisdi " 
tet. Die y-Achse ist immer in sechs Abschnitte unter- ern Br 3% z ee re 
teilt. Anhand des maximalen eingegebenen Zahlenwer- :char1,11,9, a Ja 
tes wird die Achsenbeschriftung berechnet, wobei ge- 198 char1,11,11,"5.laden/speichern 
ringfügige Rundungsfehler auftreten. Werte mit mehr ":char1,11,13,"6.programmende..." <eh> 
als drei Stellen werden durch Division ‚‚verkürzt‘. Der 288 char1,7,17,"bitte waehlen sie 
entsprechende Faktor für die Maßeinheit wird mit an- (1-6) ı" <ei> 
gezeigt. ”- "gr non 
Anschließend wird die Kurve als Verbindungslinie von 210 geta$:ifa$>"@"anda$<"7"then220 
Wert zu Wert gezeichnet. Die Kurve wird zur Verdeut- :else218 <tk> 
lichung in dreifacher Breite erstellt. Ein Tastendruck 228 onval(a$)goto268,558,83®8, 1258, 
führt zurück in das Hauptmenü. 1968, 1678 <km> 
ö 230) nen. ===> <hl> 
5. Laden/Speichern 248 rem demo-untermenue <ik> 
Es wird das folgende Untermenü angesprungen: 250 rem --------------- <ff> 
| 1. Sam | 260 senelr:char1,11,8,rn$+b3$+"d e 
ern no s"+b4$+trf$:char1, 15,2,b3$+"zu 
- Laden e BEER 
. Hauptmenü 
Punkt 1. zeigt lediglich den Inhalt der eingelegten Dis- 278 char1,11,4,"1.balkendiagramm": 
un die Suche nach bestimmten Grafiken zu -ehar1,11,6,"2.kreisdiagramm.” <ji> 
erleichtern. ” elssere ”. 
Mit Punkt 2. kann das Diagramm im Grafikspeicher ne ea U FREE 7 
auf Diskette abgespeichert werden. Dazu wird zu- char1,7,15,"bitte waehlen sie (1-3 
nächst die vorhandene Grafik kurz eingeblendet. Es er- 3” <gp? 
folgt die Abfrage, ob gespeichert werden soll. J führt 29AR geta$:ifa$>"®"anda$<"4"then3Bd 
zur Abfrage des Filenamens, alle anderen Tasten be- -else?99 <dk> 


wirken den Rücksprung in das Untermenü. Der File- 


name darf bis zu 15 Zeichen lang sein. Durch einen auB anal a$) gHERSTR, 380, R58 KURF 
SYS-Befehl wird die Maschinenroutine zum Spei- LE nn <mg? 
chern aufgerufen. Es wird der Bereich von 1800 bis 328 rem demo balkendiagramm <gn> 
3FFF (hex) gespeichert, damit auch die Helligkeits- 338 rem ------------------- <ob> 
und Farbinformationen erhalten bleiben. Nach Been- 34® c=6:d$="ausgaben im monat deze 


digung des Speichervorganges springt das Programm 


zurück in das Untermenü. mbar" <may=" dm" 5 
Mit Punkt 3. können auf diese Weise abgespeicherte 358 p$C1)="miete”:pl 1)=825.38:p$(2 
Grafiken wieder eingeladen werden. Zuvor wird das )="strom":p(2)=70.89:p$(5)="auto": 
Directory zur Auswahl des Filenamens angezeigt. p${ 65) ="hobhy” <mc> 
Während des Ladevorganges ist der Bildschirm abge- 368 p$(3)="haushalt"”:p(3)=552.28:p 


schaltet. Wer den Aufbau der Grafik verfolgen will, 


muß die beiden POKE-Befehle in Zeile 2360 entfer- $(4)="kinder":p(4)=239.10:p(5)=83. 


nen. Die eingelesene Grafik kann nun betrachtet wer- 20:p(6)=120 <hl> 
den. Der Rücksprung zum Untermenü erfolgt durch 378 goto698 <pc> 
Druck einer Taste. SEE ri nungen <kn> 
Puntk 4. bewirkt den Rücksprung in das Hauptmenü. 390 rem demo kreisdiagramm <ih> 


Bitte lesen Sie weiter auf Seite 84 
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Bu Tem Seen 

212 c=6:d$="ausgaben im 1.halbjahr 
1988” 

228 p$( 1)="kKleidung"”:p( 1)=6.8:p$( 2 
)="auto”:p[2)=14.4:p$[3)="moebelka 
uf"”:p(3)=21.5 

239 p$(4)="hobby":pl4)=15.3:p$(5) >= 
"haushalt”:p(5)=22.5:p$(6)="sonsti 

ges"”:p(6)=19.5 

448 g0t0998 

90. Em ====>=252255Z852 

458 rem demo x-y-diagramm 

#70 TEN ---- rn 

488 c=12:d$="krankheitskosten 1988 
":me$="dm" 

498 pl 1)=76:p( 2) =54:p( 3) =28:p(4)=2 
1:p(5)=18:p(6)=5 

528 pl 7)=66:p(8)=19:p(9)=12:pl 18) = 

7:p( 11)=19:p( 12) =32 

518 goto1438 

528 rem = en 

538 rem balkendiagramm 

540; Rem --==-=----- 

558 scnelr:printrn$"b alkend 

jagramım"rf$ 

568 printc4$"das balkendiagramm st 

ellt bis zu sechs” 

578 print"verschiedene zahlenwerte 
grafisch dar." 

588 print"die eingabe kann in beli 

ebiger massein- " 

598 print"heit erfolgen.” 

680 printc4$c4$c4$"bitte ueberschr 

ift der grafik eingeben !” 

618 print”(nicht laenger als 48 ze 

ichen) !":inputd$ 

628 iflen( d$) >48then558 

638 printc4$c4$"in welcher massein 

heit soll dargestellt":print"werde 

n”; :inputme$ 

648 char1,8,18,"wieviele balken (1 

-6) ":inputc$ 

658 ifc$<"7"andc$>"B"then66Bß:else6 

48 

668 c=vallc$) :scnelr 

678 Fori=i1toc:print"eingabe ";i; 
wert"b3$b4$; :inputp(i) 

688 print"”fuer (bezeichnung) "b3$b3 

$; :inputp$(i):nexti 

698 gosub 1728 

788 graphici,1 

718 fori=1toc:colori,2+i,4 

720 box1,i*48-48,168-pr(i) ,i*48-24 
‚168 

738 draw1,i*48-24,16Btoi*48B-12, 168 

toi*48-12,168-pr(i)toi*48-24,168-p 

r{i) 

748 draw1,i*4B-24,168-pr(i)toi*48- 


<fc> 


<da> 


<pc> 


<gm> 
<gl> 
<cg> 
<gp> 
<kj? 
<hl> 
<hb> 
<ne> 
<hj> 
<gg> 
<da> 
<al> 
<hp> 
<im> 


<bp> 


<jb> 
<dj> 


<bj> 
<pn> 
<ki> 
<jm> 
<nk> 


<dp> 
<ae> 


<ld> 
<io> 
<ga> 
<ci> 


<am? 


<mb> 


<co> 


12,16ß-pr(i)toi*48-36, 16@-pr(i)toi 

*48-48, 168-pr(i) 

758 paint1,i*48-45, 167,1 

768 nexti:colori,2:z=1 

778 fori=iItoc:chari,(i-1)*%6,5+z,st 

r$(pli)):chari,(i-1)*6,23+z,p$(i): 
z=-z:nexti 

788 gosub1818:gosub187B 

798 getkeyw$:graphicd:goto14® 

BBA rem ------------- 

818 rem kreisdiagramm 

B20 Tom -- Hr 

838 senclir:char1,8,8,rn$+"krei 
sdiagramm "+rf$:print 

848 printc4$c4$"das kreisdiagramm 
stellt bis zu sechs” 

858 print”prozentwerte als teile e 

ines vollkreises” 

868 print"dar. die summe der werte 
darf 180% nicht” j 

878 print”ueberschreiten !" 

B5B print”eingaben unter 5% sollte 
n vermieden":print”werden !!!” 

898 char1,8,18,"bitte ueberschrift 
der grafik eingeben !" 

988 char1,8,11,"(nicht laenger als 
49 zeichen) !":print:inputd$ 

918 iflen( d$)>4B8then83® 

928 char1,8ß,14,"wieviele prazentwe 
rte (1-6) ":inputc$ 

938 ifc$>"B"ande$<”7"then94B:else9 
28 

948 c=vall(c$) :scnelr 

958 fori=itoc:print"eingabe ";i;" 
prozentwert ";:inputpl(i) 

968 print"fuer (bezeichnung) "b3$b4 
$; :inputp$(i) :nexti:su=® 

978 fori=1toc:su=ssu+tp(i):next] 

988 ifsu>1dAthen94R 

998 fori=Itoc:pr(i)=int((pli)*3.6) 
+,.5):nexti 

1808 graphic1,1:color1,8,5 

1m1a r=69:su=ß:x=16B:y=-1MA:locatex 


1828 fori=1Itoc 

1839 locate9;(su+pr(i)/2):xx=rdot( 
8) :yy=rdot( 1) :circlel,xx,yy,r,r,su 
‚sutpr(i) 

1948 drawtoxx,yy:drawkLor;su:su=sut 
pr(i) " 

10858 locatex,y:locate3®;(su-pr(i)/ 
2) :paint 

1868 locatex,y:nexti 

1878 color1,2:gosub1818 

1888 su=® 

1898 fori=itoc:locatex,y:locater+2 
5;(su+pr(i)/2) 

11aR xz=int(rdat(8)/B) :yz=int(rdot 
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(1)/8) :su=ssu+pr(i) :ifyz<2thenyz=2 
1118 ifyz>2lthenyz=21 

1128 ifyz<2landxz<19thenxz=xz-len( 
str${pli)))-3 

1138 color1,3,6 

1148 chari,xz,yz,str$(i)+":"+str$( 
pli))+"%":nexti 

1158 color1,2:fori=8t039:char1,i,2 
2,"C":nexti " 

1168 color1,7,6 

1178 ifc>3thenfori=1to3:elsefori=1 
toc 

1188 chari,(i-1)*13,23,str$(i)+":" 
+p$(i):nexti 

1198 ifc>3thenfori=4toc:else1218 
1288 char1,(i-4) #13,24,str$(i)+":" 
+p$(i):nexti 

1218 getkeyw$:graphicd:goto148 
1228 rem 
1238 
1248 
1258 


rem 
scnelr:char1,8,8,rn$+"x - y - 
diagramm "+rf$ 

1268 print:printc4$c4$”das x-y-dia 

gramm stellt bis zu zwoelf"” 

1278 print”zahlenwerte dar. die y- 

achse ist die" 

1288 print"zeitachse, die in die z 

woelf monate” 

1298 print"unterteilt ist. " 

1388 print”die x-achse kann mit ei 
ner beliebigen" 

1318 print"masseinheit belegt werd 
en. sie wird” 

1328 print"grundsaetzlich in sechs 
abschnitte auf-"” 

1338 print"geteilt, wobei der maxi 

malwert zwischen" 

1348 print”8 und 99999 liegen kann 


1358 char1,9,14,"bitte ueberschrif 
t der grafik eingeben !” 

1368 char1,8,15,"(nicht laenger al 
s 49 zeichen) !":print:inputd$ 
1378 iflen( d$)>48then 1258 

1388 printc4$c4$”"in welcher massei 
nheit soll dargestellt"”:print"werd 
en”; :inputme$ 

1398 char1,8,23,"wieviele werte (2 
-12)":inputc$ 

1488 ifvallc$)>1andvallc$) <13then! 
418:else1398 

1418 c=val(c$) :scncelr 

1428 fori=1toc:print"”eingabe ";i; 
. wert"; :inputp(i):print:nexti 
1438 gosub 1728 

1448 z=1:ux=48:uy=168:restore 1958 
1458 graphic1,1:locateux ,uy:colori 


<pk> 
<nc> 


<on> 
<eg> 


<gh> 


<co> 
<np> 


<jk> 


<dp> 
<kj> 


<ef> 
<kh> 
<gb> 
<ok> 
<oi> 
<bo> 
<ib> 


<ol> 


<gp> 
<bg> 


<1lm> 
<ej? 
<on> 
<co> 
<fm> 
<nb> 
<jh> 
<eh> 
<jf> 
<ki> 


<ma> 
<jh> 


<ic> 
<eh> 
<ki> 
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‚8,5:drawto328,uy:locateux, 16@:dra 
wtoux,56 

1468 fori=1t012:1locate28+i*24, 168: 
drawto2;8t04; 188 

1478 reada$:chari,((rdot{ 8) -24) /8) 
+1,22+z,a$:z=-z:nexti 

1488 fori=1t06:locateux,uy-(i*16): 
drawto2;279t04;98@:nexti 

1498 pm=pm* 108 

1588 ifpm<1888andpm>dthenmu=1 

1518 ifpm<18B8Adandpm>=1888thenmu>. 
1:me$=me$+" * 10" 

1528 ifpm>=18A8dthenmu=.81:me$=me$ 
+" * 190" 

1538 ps=int( pm*mu/6) 

1548 fori=1t06:pa=(7-i)*ps:charl,® 
‚1*2+6,str$(pa) 

1558 nexti 

1568 color1,3,5 

1578 gosub16BA:r=1:gosub 164R: gosub 
1698: r=-2:gosub 1648: gosub 1688 

1588 color1,2:gosub1818:gosub 1878 
1598 getkeyw$:graphicd:goto148 
1688 locate52, 168-pr( 1) 

1618 fori=2toc 

1628 xp=[ 28+1*24) :drawtoxp, 168-pr{ 
i):nexti 

1638 return 

1648 fori=iItoc:pr(i)=pr(i)-r 

1658 ifpr(i)<dthenpr(i)=® 

1668 nexti:return 

1678 rem 
1689 
1698 rem 
1788 scncelr:color1,8,7:char1,2,12, 
"programm wirklich beenden (j/n) ? 
7 " 

1718 getkeyw$:ifw$="j"thensys65529 
:else148 
1728 rem 
1738 
1748 
1758 
1768 
) 
1778 
1788 
1798 
+.5) 
1808 
1818 
1828 
n * 
1838 
1848 
‚@,d$ 


rem 
pm=® 
fori=1toc:ifp(i)>pmthenpm=p(i 


nexti 

pm=pn/ 108 
fori=1toc:pr(i)=int((pli)/pm) 
:nexti 

return 

rem 


d=int((48-1en(d$))/2) :chari,d 
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"s58 fori=8t039:char1,i,1,"C":next 


558 return 

Bu; vom =---=--- nn 
‘358 rem masseinheit positionieren 
BR Lem =---------- > - 
528 ma$="angaben in "tme$:me-int( 
'22-l1en(ma$)) /2):chari,me,2,ma$ 
318 return 

1928 rem ----- 

‘338 rem datas 

9348 rem ----- 

358 data jan,feb,mae,apr,mai, jun, 
jul,aug,sep,okt,nov,dez 

Be Ben meer 


378 rem untermenue laden/speicher 


1998 scnelr:char1,12,8,rn$+"laden/ 
speichern"+rf$ 

2889 char1,12,3,"1.directory....” 

char1,12,5,"2.speichern....” 

2818 char1,12,7,"”3.1laden........ ws 
char1,12,9,"4.hauptmenue..."” 

2828 char1,7,17,"bitte waehlen sie 
61-4) 1° 

2838 geta$:ifa$>"B"anda$<"5"then28 
48:else2838 

2848 onval( a$) goto285®, 2898, 2228, 1 
48 

2950 Tem ------ 

2868 rem directory 

2878 rem --------- 


<ib> 
<ce> 
<db> 
<1ld> 
<jm> 
<ko> 
<ii> 
<ee> 
<mj? 
<ep> 
<ag> 
<be> 
<dc> 
<ni> 
<do> 


<ah> 


<dd> 


<k1> 


<bf> 


<ac> 
<op> 


<kf> 


<lm> 


2888 scnelr:directory:printc4$"wei ° 


ter mit beliebiger taste !":getkey 
w$:g0t01968 

2898 rem --------- 

2188 rem speichern 

2118 rem --------- 

2128 scnclr:print”zur zeit befinde 
t sich die folgende”:print"grafik 
im speicher:" 

2138 fori=1t02880:nexti 

2148 graphici:fori=1to3ßB8:nexti:g 
raphic® 

2158 printc4$c4$c4$”speichern ( j/n 
) ?";:getkeyw$:print” "+w$ 

2160 ifw$="j"then2178:else 1968 
2178 char1,8,12,"name der grafik "” 
:inputna$ 

2188 iflen([na$) >15then217® 

2198 iflen([na$) <15thenfort=1len(na$ 
)to15:na$=na$+"” ":nextt 

2288 fori=1815t0183@:pokei,asc(mid 
$(na$,i-19014,1)) :nexti 

2218 sys818:g0t01968 


<ji> 
<ap> 
<nj? 
<cc> 


<cn> 
<ec> 
<ok> 


<le> 
<jk> 


<1n> 
<jh> 


<jt> 


<bi> 
<fo> 


2220: rem ->--- 

2238 rem laden 

2248 rem ----- 

2258 scnelr:print"mit dieser routi 

ne koennen sie grafiken” 

2268 print"laden, die auf der eing 

elegten diskette” 

2278 print"gespeichert sind.":prin 
t"zunaechst erscheint die director 

2288 print"”anschliessend ist der n 

ame der ge-": BEIRLTAURNAEhERD graf 
ik einzugeben." 

2298 print"danach Re: die grafik 
eingelesen. sie" 

2388 print"kann nun betrachtet wer 

den.” 

2318 print"durch druck einer taste 
gelangt man wie-" 

2328 print"der in „Bas untermenue 
laden/speichern’. 

2338 char1,89,24,"bitte taste drue 
cken !":getkeyw$ \ 

2348 scnelr:directory:print:input” 
name der grafik";na$ 

2358 iflen(na$}>15then2348 

2368 iflen{ na$) <15thenfort=len(na$ 
)to15:na$=na$+” ":nextt 

2378 fori=1815t01838:pokei,asc[mid 
$(na$,i-1814,1)):nexti 

2388 graphic1:poke65286, 11:5ys854: 
poke65286,27:getkeyw$:graphicd:got 
01968 

2390: rem Sasse 
2488 rem ms-unterprogramm einlesen 
2418 ren = 
2428 restore2488 

2438 fori=818t0877 

2448 readms$ 

2458 pokei,dec(ms$) 

2468 nexti 

2478 return 

2488 data a9,801,52,88,50,08,2®8,ba, 
ff,a9 

2498 data Bf,a2,f7,38,803,28,bd,ff, 
a2,88 

2508 data a@,18,86,d8,84,d9,a9,dB, 
a2,ff 

25180 data a8,3f,20,d8,ff,6® 

2528 data a9,81,32,88,a0,81,28,ba, 


[2 


ff,a9 

2538 data 8f,a2,f7,880,83,20,bd,ff, 
39,88 

2548 data 28,d5,ff,68 

2558 rem nachspann =============== 


25608 rem * farbeodes/steuercodes * 
2578 c4$=chr$( 817) :rn$=chr$( 818) 
2588 rf$=chr$( 146) :b$=chr$( 32) 


<if> 
<dhb> 
<he> 


<eh> 


<oc> 


<pm> 


<pk> 
<pl> 
<im> 
<gb> 
<gl> 
<og> 


<mf> 
<ok> 


<kf> 


<fn> 


<ch> 
<k1l> 
<ni> 
<gl> 
<gl> 
<jo> 
<ff> 
<ee> 
<oe> 
<on> 


<bf> 
<ek> 


<hm> 
<ac> 


<hf> 


<hb> 
<jf> 
<hl> 
<ao> 
<kd> 
<eh> 
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2599 b3$=b$+b$+b$:b4$=b3$+b$ <gg> 
2698 return <pc> 
2618 rem diagramm===============p4 <nd> 
2628 rem 68671 bytes memory <la> 
2638 rem 88488 bytes program <jk> 
2648 rem ABR49 bytes variables <be> 
2658 rem BB144 bytes arrays <fb> 
2668 rem A9338 bytes strings <xli> 
2678 rem 122568 bytes graphic <oh> 
2688 rem 39444 bytes free (B®) <jc> 


18 ram intercopy================p4 
28 rem (p) commodore welt team 

308 rem =====================2====== 
48 rem (c) by martin schulz 

5@ rem 

68 rem basic v3.5 

78 rem plusä (c16/116 + 6Akb) 

88 rem Floppy und datasette 

98 rem ==================2=====5==== 
188 Fori=312t0348 

118 reada:pokei,a:next 

128 data 201,013,288,993,2076,0795 
138 data 236, 134,208,841,815, 178 


Fortsetzung von Seite 80 


6. Programmende 


Nach einer Sicherheitsabfrage wird das Programm 
durch einen Software-Reset gelöscht. Der Grafikspei- 
cher bleibt erhalten. 


Unter Verwendung eines Druckers und einer Hard- 
copy-Routine (wie die Hires-Hardcopy aus C16-P4 
SPECIAL NT. 1) lassen sich die erstellten Diagramme 
natürlich auch zu Papier bringen. 


Henning Koglin U 


INTER-COPY 


Kassette 
auf 
Diskette 


Wer sich eine Diskettenstation angeschafft hat, 
würde seine Software, die sich noch auf Kassetten be- 
findet, gerne auf das neue Speichermedium kopieren. 

Autostart und Kopierschutz vereiteln jedoch dieses 
Vorhaben. In den meisten Fällen kann 
Inter-Copy helfen. 


Von 


Wenn das zu kopierende Programm sich mit dem 
Speicherplatz eines nicht erweiterten C16 begnügt, 
nach dem Laden den Interrupt wieder zuläßt und 
beim Laden weder den Interruptvektor verbiegt noch 
das ROM einschaltet, steht dem Kopieren von Kasset- 
te auf Diskette nichts mehr im Wege. 
Das Programm Inter-Copy wartet darauf, daß nach 
dem Ladevorgang der Interrupt wieder zugelassen 
wird. Sobald das geschehen ist, werden sofort inner- 
halb eines Interruptes der ganze Bereich von $0000 
bis $OFFF sowie die Ted-Register in einen anderen 
Speicherbereich verschoben und ein Reset ausgeführt. 
Das Programm startet also nicht automatisch. Um ein 
so abgebrochenes Programm wieder zum Laufen zu 
bringen, wird nicht die Startadresse gebraucht, son- 
dern der Stackpointer. Man muß also außer dem ei- 
Bitte lesen Sie weiter auf Seite 86 


148 data 


165,209,072, 165,210, 133 


158 data 259, 194,133,2198,832,9075 
1658 data 236,202,2908,259, 166,288 
178 data 924,096,924,496,576,575 
152 data 236 

198 color4,6,4:color®,7,6 


scnelr:print:print:print 


218 poke209,32:poke219, 166 
228 poke884,56:pokeBB5, 1 
238 print"adebbbbfbfbe"” 

248 print"bbdeabdbdbfbbh" 
258 print"bbdfdbdbfbbh” 

268 print"bbdfdbddde” 

278 print"bbdbacdbdhrd” 

258 print"bbdbbbdbdbfbab“ 
298 print”adebbbdbdfbbbh” 
388 print:print:print 

318 print"ddddcecbbb" 

328 print"cbbbbbbhbbbbbbbh" 
332 print"cbfbbbbbbbbbbh" 
348 print"cbfbbbbedd” 

358 print"cbfbbbbbhb" 

368 print"cbbbbbbbbbhh" 

378 print"ddddebhh” 

388 poke884,75:poke885,236 
398 print:print:print:print 


488 print” 
ace-taste 
A418 getkey 
428 print" 
gramm, das 
438 print” 


druecken sie die sp 


a$:print:print:print 
inter-copy ist ein pro 
es":print 
ermoeglicht, c16-progr 


amme mit auto-":print 


448 print” 


start von kassette auf 


diskette zu":print 


450 print” uebertragen. hierzu er 
forderlich ist":print 
468 print” ein c16 mit 64 kb.-erw 


eiterung oder":print 


478 print” 


ein plus 4. da es vers 


chiedene"”:print 


488 print” 


moeglichkeiten des kop 


ierschutzes":print 


498 print” 


gibt, gelingt diese ar 


.<ko> 


t des kopierens":print 


. 
i 
i 
! 


*0j? 
<ho> 
ng> 
<me> 
<pd> 
<od> - 
<xcod> 
<hh> 
<jg> 
<bi> 
<ne> 
<oc> 
<im> 


nu 


ıi@ 


WUNAIKE 


<co> 
<ba> 
zuUm> 
<mi> 
<ia> 
<fm> 
<ei> 
<mk> 
<bf> 
<ah> 
<bh> 
<hg> 
<eh> 
<di> 
<dm> 
<hm> 
<gg? 
<1k> 
<dh> 
<np> 
<bd> 
<al> 
<cm> { 
<cl> ü 
<fa> 


nn a nme IN» 


un 


zz mw ww mu win wi 


ih 


u A DM Ki 


<kh> 
<gg> 


<pc> 
<di> 
<ha> 
<nn> 
<gc> 
<dn> 
PERS 


<cg? 
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Due A a | 


8 print" nicht bei jedem progra 
=. auch dort,":print 

=’®2 print” wo programmteile von k 
sssette nachge-":print 


=2®@ print” laden werden, ist inte 

--copy nur"”:print 

==@ getkey a$ 

>22 print” bedingt anwendbar. der 
sorteil bei":print 

55@ print” inter-copy liegt darin 
dass die”:print 

sö® print" startadresse eines pro 


srammes nicht” :print j 

=78 print” mehr gebraucht wird. w 
son sie gleich":print 

s58 print” die space-täste drueck 
n, wird der":print 

® print” 


3 bildschirm geloescht u 
sd die ein-":print 

=28 print” schaltmeldung erschein 
::”:print 

518 print" inter-copy 1227 
7 bytes free"”:print 

528 print” inter-copy ist dann ak 
tiviert.":print 

538 print" bevor sie nun ein prog 


ramm kopieren,":print 

548 print" laden sie es einmal zu 
r probe und”:print 

5508 getkey a$ 


558 print” merken sie sich den st 
and des band-":print 
578 print” zaehlwerkes, nachdem e 


s geladen ist!":print 

588 print" nun koennen sie die fo 
igenden”:print 

598 print" programmschritte zum k 
opieren eines"”:print 


788 print” programmes anwenden. b 
evor sie das"”:print 
718 print" tun, notieren sie sich 


diese bitte !":print 
728 print 

738 print"1. laden sie inter-copy 
und starten es.":getkey a$:print 
748 print"2. laden sie das zu k 
opierende" 
758 print” 
tte.":print 
768 print"”3. 


‘ 


programm von kasse 


kurz bevor -der lad 


evorgang" 

77@ print” abgeschlossen ist, (1- 
2 nummern des” 

788 print” bandzaehlwerkes vorher 


), druecken sie" 

798 print” die tasten shift und a 
gleichzeitig” 

888 print” und halten diese gedru 


<hc> 
<pd> 


<mj> 
<ni> 


<cp> 


<lk> 


<do> 


<mb> 
<fl> 
<be> 
<1p> 
<fg> 


<fj> 


<el> 


<db> 
<fo> 


<cd> 
<ek> 
<bd> 
<jj? 
<bi> 


<ce> 
<do> 


<di> 
<eg> 
<on> 
<ge> 
<1p> 
<kh> 


<jl> 


85 


eckt, bis der" 


818 print" ladevorgang beendet is 
t."e2print 

828 print”4. geben sie nun den be 
fehl monitor” ’ 

838 print" ein und druecken sie d 
ie return-taste."” 

848 print” speichern sie nun das 

programm mit” 

858 print" s"chr$( 34) "programmnam 


e"chr$( 34)" ,8, 1800,5068” 

868 print" auf diskette ab."”:prin 
t 

878 print"S. 

en computer aus” 


schalten sie nun d 


888 print” und wieder an. geben s 
ie den befehl” 

898 print" monitor ein und drue 
cken die return-" 

988 print" taste. laden sie das s 
oeben abge-" 

918 print” speicherte programm mi 
t" 

928 print” 1”chr$( 34)” programmna 
me"chr$( 34)"”,8 und starten sie” 
938 print” es mit g 5880” 


940 getkey a$:scnelr:char, 13,4,"mo 
ment bitte !"” 

958 char,?,6,”inter-copy wird akti 
viert !" 

968 for i=8 to 433 

978 read x:poke 2B4B8B+i,x 

988 next:sys dec( "583c") 

998 data 128, 168,8,185,8,64, 153,8 
18808 data 9,280,288,247,238,5,80,2 


1010 data 8,80, 173,8,80,201,16,288 
1020 data 234, 185,64,80,153,0,255, 
1030 data 192,32,208,245,173,68,88 


1048 data 8,16, 173,61,88,141,1,16 
1050 data 173,62,88,141,2,16,162,2 


ıa6B data 154,76, 195,252,120, 160,8 


1070 data 0,128,153,0,128,208,208, 


1060 data 238,65,80,238,68,88,173, 
1090 data 88,201,253,208,234, 168,1 


1180 data 63,255, 153,63,255, 136,20 
8,247 
1118 data 
255 

1128 data 
3,141 


169,63,32, 180,88, 141,63, 


169,76, 141,14,206, 169,23 


<oo> 
<hg> 
<eh> 
<ln> 
<kg> 
<lb> 
<pa> 
<dl> 
<ke> 
<dm> 
<fj> 
<pb> 


<ma> 
<hm> 


<ec> 
<hk> 
<bg> 
<hm> 
<lc> 


<ej> 


<ng> 
<ho> 


<cg> 


<hf> 
<dc> 


<cn> 
<no> 
<pd> 
<mj> 
<cj? 
<gh> 
<fa> 


<hc> 
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1138 data 
‚168 

1148 data 
3,136 
1158 data 
6,232 
1168 data 
288 

1170 data 
9,8 

1180 data 
68 

1198 data 
77,288 
1288 data 
Bi 

1218 data 
‚141 

1228 data 
47,255 
1238 data 
172 

1248 data 
1 

1258 data 
4 

1268 data 
76 

1278 data 
286 

12688 data 
1298 data 
8,111 
1388 data 
42,55 
1318 data 
1328 data 
238 

1338 data 
1348 data 
288 

1358 data 
‚232 

1368 data 
286 

1378 data 
1388 data 
18 

1398 data 
1%) 

1488 data 
1418 data 
1428 data 


1438 data 


1448 data 


15,206, 169,80, 141, 16,286 
10,185,245,255, 153,245, 6 
208,247,76,143,81,162,12 
240,24,189,0,68,201, 177, 
246,232,232,232,16,12,18 
68,201,63,208,234,222,0, 
208,229, 173,222,71,2@1,1 
10,173,225,71,201,63,208 
206,225,71,96, 141,58, 129 
78,129,141,187,297,141,2 
141,130,4,141,158,4,141, 
4,141,183,4,141,194,4,14 
205,4,141,216,4,141,227, 
141,225,7,96,141,63,255, 
66,206, 141,63,255,76,14, 


3,169,0,141,48,253,141,8 
255,173,8,255,201,123,2@ 


173,232,80,24@, 186,186, 1 


80,160,0,185,0,0,153,8 
64,200,208,247,238,5,81, 


8,81,173,5,81,201, 16,208 
234,185,0,255,153,64,80, 


192,32,208,245, 169,8, 141 
80,169,62,32,18@,80,169, 


141,19,3,141,21,3,141,19 
67,141,21,67,169,66, 141, 


3,141,18,67,169,14, 141,2 
3,141,20,67,173,0, 16,141 
60,88, 173,1,16,141,61,88 
173,2,16,141,62,80,32,13 
80,141,62,255,76, 164,242 


19,3,201,206,208, 10,169, 


<an> 
<do> 
<pk> 
<mo> 
<mj> 
<ea> 
<eo> 
<pl> 
<jf> 
<kl> 
<jk> 
<ij> 
<hi> 
<bl> 


<jn> 
<ed> 


<ef> 


<mg> 
<mf> 


<ef> 
<mp? 


<kd> 
<of> 


<lo> 
<md> 


<3o> 
<ho> 
<md> 
<po> 
<ij?> 
<ae> 


<lo> 


1450 data 141,19,3,169,220,141,18, 


3 <ik> 
1468 data 173,21,3,201,206,288,10, 
169 <gk> 
1478 data 80,141,21,3,169,226, 141, 
28 <je> 
1488 data 3,173,9,255,76,17,2896,16 
8 <na> 


1490 data 28,185, 157,81, 153,287,12 
8,136 

1580 data 16,247,76,164,242,32,32, 
32 <mj> 
1518 data 32,73,78,84,69,82,45,67 <mf> 
1528 data 79,80,89,32,32,32,32,32, 
32,32 <fk> 
1538 rem ========================= cge> 
15489 rm programmende 
1550 rem ========================= <op> 


<ci> 


Inter-Copy 


Fortsetzung von Seite 84 


gentlichen Programm den kopierten Bereich $0000 
bis $OFFF (jetzt $4000 bis $4FFF) und das Startpro- 
ide mit dem Stackpointer auf Diskette abspei- 
chern. 

Man kann das Programm nun von Diskette laden und 
vom Monitor aus mit G5000 starten. Als Beweis, daß 
dies funktioniert, habe ich das Programm „Atlantis“ 
auf diese Weise auf Diskette abgespeichert. 

Es ist durch einen Reset nicht zu stoppen. Da ich die 
Interruptroutine erweitern mußte, habe ich das ganze 
ROM ins RAM kopiert. Die Erklärung zu Inter-Copy 
habe ich mit ins Programm eingebaut. Das eigentliche 
Programm beginnt mit Zeile 960. 


Zur Anwendung: 

l. Inter-Copy laden und starten. Programm von Kas- 
sette laden. 

2. Kurz vor Abschluß des Ladevorganges die Tasten 
Shift und A drücken und gedrückt halten, bis ein 
Reset ausgeführt wird. 

3. Programm vom Monitor abspeichern mit 
S“Programmname‘“‘,8,1000,5060. 

4. Programm vom Monitor aus laden mit 
L“Programmname“,8 und starten mit G5000. OD 


<ie> 


ya 


> 


Be 0 I u & TRICKSER 


= Funktion eines Joy- 
xs ist denkbar einfach. 
= Pin-Belegung ist wie 


"nm Belegung 
oben 

> rechts 
unten 

- links 

3 +5V 

Feuerknopf 

Masse 
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21 


"rd nun zum Beispiel 
&n 1 (oben) mit Pin 7 
(zsse) verbunden, ergibt 
PRINT JOY 1) die Zahl l. 
= Fachhandel gibt es 
onfektionierte Kabel mit 
otsprechendem Stecker. 
S:cherheitshalber sollte 


PIN-BELEGUNG DES 


JOYSTICK-PORTS — 
FORT1UND2 

ALS KONTROLL- 
STATION 


Ser Anschluß für +5V iso- 
<ert werden, damit kein 
Xurzschluß entsteht. Die 
anderen Anschlüsse sind 

n diesem Zusammenhang 
nproblematisch. Wenn 
<as Geschäft keine pas- 
senden Kabel vorrätig hat, 
<anın auch ein Joystick- 
Adapter verwendet wer- 
Sen, der normalerweise 
Senutzt wird, um Joy- 
sticks mit neunpoliger 
Sub-D-Buchse (C64) an 
den C16/Plus4 anzuschlie- 
sen. Hier sind in der Re- 
sel nur die sechs für den 
Joystick notwendigen 
Kabel angeschlossen. Ein 
einfacher Test kann mit 
einem Miniprogramm 
durchgeführt werden: 


0 print joy(1):goto 


Wird nach dem Starten 
dieser Zeile eines der 
Kabel von 1 bis 4 oder 6 
mit Pin 7 verbunden, än- 
dert sich der ausgedruck- 
te Wert. Übrigens springt 
ein GOTO ohne Zeilen- 
nummer zu Zeile O0. 


DER C16 ALS 
ALARMANLAGE 


Die Verbindung der ent- 


sprechenden Pins mit 
Masse (Pin 7) kann auf 


vom Joystick 


Ti 


.. bis Script Plus: 
ps & Tricks 


für C16/P4A 


Wie gewohnt, bringt die Seite 16 wieder 
Tips und Tricks, wie Sie Ihren Computer noch besser 
nutzen können. Diesmal zeigen wir Ihnen, wie man 
mit Hilfe der beiden Joystick-Ports eine Alarmanlage 
realisieren kann. Außerdem finden Sie das Hilfs- 
programm Silbentrennung zur Bearbeitung von 
SCRIPT/PLUS-Texten. 


vielfältige Weise gesche- 
hen. Die einfachste Me- 
thode wird im Innern des 
Joystick angewandt. Hier 
sind einfach kleine Schal- 
ter oder Metallkontakte, 
die die einzelnen Pins auf 
Masse legen. Genauso- 
gut kann man auch soge- 
nannte Reed-Relais ver- 
wenden. Diese werden 
bevorzugt in Alarmanla- 
gen eingesetzt, um das 
Öffnen und Schließen 
von Fenstern und Türen 
zu kontrollieren. Ein 
Reed-Relais besitzt zwei 
metallische Kontakte, die 
sich schließen, wenn ein 
Magnet in die Nähe ge- 
bracht wird und sich öff-' 
net, wenn er wieder ent- 
fernt wird. Diese Schalt- 
kontakte sind sehr klein 
und zudem preiswert 

zu erhalten. Genauso 
kann mit einem Queck- 
silber-Neigungsschalter 
das Anheben oder Er- 
schüttern eines Gegen- 
standes kontrolliert wer- 
den. In gleicher Weise 
kann eine Matte mit Tritt- 
kontakten eingesetzt wer- 
den. Soll die Temperatur 
eines Gerätes überwacht 
werden, so kann dafür 
ein Temperaturschalter 
verwendet werden. Dieser 
betätigt sich bei einer be- 
stimmten Temperatur 
(zum Beispiel 100 Grad) 
und man kann dies mit 
dem Joystickport leicht 
überwachen. In der glei- 


87 


chen Weise kann mit ei- 
ner Reflexlichtschranke 
oder einer Gabellicht- 
schranke das Vorhanden- 
sein oder Fehler eines 
Metall- oder Papierban- 
des überwacht werden. 
Mit Hilfe einer Taschen- 
lampenbirne oder einer 
infraroten Leuchtdiode 
und eines Fototransistors 
kann eine einfache Licht- 
schranke gebaut werden. 
Dazu eignet sich zum Bei- 
spiel als Sender der Typ 
LD261 und als Empfän- 
ger BPX81. Der Kontakt 
ist geschlossen, wenn der 
Fototransistor beleuchtet 
wird. Er ist offen, wenn 
Dunkelheit herrscht. Für 
eine solche Anwendung 
haben wir das Beispielpro- 
gramm SCHALTER ge- 
schrieben. 

Eine typische Anwendung 
wäre ein Physikerversuch 
mit der sogenannten schie- 
fen Ebene. Entlang der 
Fahrbahn eines kleinen 
Modellautos befinden sich 
zehn Fototransistoren, die 
mit den entsprechenden 
Pins an den Ports 1 und 

2 (mit gemeinsamer Mas- 
se) verbunden werden. 
Auf dem Wagen befindet 
sich eine kleine Lampe, 
die die Transistoren beim 
Vorbeifahren schaltet. 
Die Schalterstellung wird 
angezeigt. Die Zeitdiffe- 
renz zwischen den Schal- 
tern wird in Zeile 80 be- 
stimmt. Da es nur zehn 


Werte sind, braucht keine 
DIM-Anweisung zu er- 
folgen. 

Bei diesem Programm 
wird vorausgesetzt, daß 
nur jeweils ein Kontakt 
geschlossen wird. Für An- 
wendungen, bei denen zu- 
nächst alle Schalter ge- 
schlossen sind und nur ei- 
ner geöffnet wird, muß 
auf die Speicherstelle 
$FFO8 zurückgegriffen 
werden. 


JOYSTICK-ABFRAGE 
OHNE JOY 


Der entscheidende Nach- 
teil der JOY-Funktion 
für Meßzwecke ist die 
Tatsache, daß die Funk- 
tion nur vernünftige Wer- 
te liefert, wenn die Kon- 
takte eine der mit dem 
Joystick möglichen Stel- 
lungen entspricht. Was 
vernünftig ist, da zum 
Beispiel „oben“ und 
„unten“ gleichzeitig nicht 
möglich ist. Die Abfrage 
der Joystickpositionen 
ohne die JOY-Funktion 
erfordert leider etwas 
Übung mit Maschinen- 
sprache und Kenntnis 
der Hardware des C16. 
Die vier Leitungen für 
„oben“, „rechts“, „un- 
ten‘ und „links“ haben 
bei Port 1 und Port 2 die 
gleichen Leitungen und 
sind mit der Tastaturma- 
trix verbunden. Die bei- 
den Leitungen für die 
Feuerknöpfe sind ge- 
trennt. Die Verbindung. 
mit der Tastaturmatrix 
wird offensichtlich, wenn 
der Joystick mit GETa$ 
abgefragt wird. 

Hierzu ein kleines 
Beispiel: 


ZTIPS& TRICKS rer nEEn 


18 v$="S6rdt”:rem port 1 
28 v$=V$+"34wa” 


Hier entspricht ‚1‘ der 
Position „oben“ bei Port 
l und „6° der Position 
„oben“ bei Port 2. Die 
Feuertaste von Port 2 
kann so nicht abgefragt 
werden. 

Umgekehrt erhält man die 
richtigen Werte mit 
JOY(1) und JOY(2) durch 
die Tasten 1, 2, HOME, 
CTRL und SPÄCE(= Feu- 
er). Ein Joystickspiel, das 
mit der JOY-Funktion ar- 
beitet, kann also ohne 
Joystick gespielt werden. 
Nicht so Maschinenpro- 
gramme. Hier erfolgt die 
Abfrage komplizierter. 
Wir haben für unsere Le- 
ser daher ein kleines Ma- 


schinenprogramm geschrie- 


ben, das die Joystick- 
position abfragt: 


Dies sind zwei Routinen. 
Die erste (für Port 1) be- 
ginnt bei $065e und wird 
mit SYS1630 aufgerufen, 
die zweite beginnt bei 
$0673 und wird mit 
SYS1651 gestartet. Man 
kann sich die Tipparbeit 
erleichtern, indem man 
mit dem Transfer-Befehl 
einen Teil der JOY- 
Routine im Betriebssy- 


:rem port 2 
| 38 geta$:printinstr(v$,a$): utaas 


stem (ab $BFC1) ko- 
piert: 


T BFCD BFDD 0660 


Nach dem Aufruf der 
Routinen steht das jewei- 
lige Ergebnis im Akku- 
Register und kann durch 
PEEK(2034) abgefragt 
werden. 


Beispiel: 


- PORT-AUSWAHL 
DURCH 


SCHREIBZUGRIFF 


Wie weiter oben erwähnt 


wurde, haben die Pins 
von Port I und Port 2 
teilweise die gleichen. Lei- 
tungen. Wie kann dann 
unterschieden werden, 
von welchem Port das 
Signal kommt? Dies ge- 
schieht durch einen 
Schreibzugriff (STX $....) 
auf $FFO8. Je nachdem, 
welcher Wert gePOKEd 


28 print 
band!;band2;band4;band8;band64; 

38 sys1651:b=peek( 2834) :rem port2 

48 print chr$f{ 18)band1;band2;band4;band 
8;band128:gotao18 


Mit Hilfe von IF-Abfra- 


gen und der AND-Funk- 


tion kann jede Schalter- 
stellung erfragt werden: 


Beispiel: 


wird, liegt die Masselei- 
tung von Port 1 oder Port 
2 an Masse. Die beiden 
möglichen Werte sind: 


Port 1: 
$FA = 250 = 11111010 
Port 2: 
$FD = 253 = 11111101 


Der Schreibzugriff wird 
zur Sicherheit wiederholt, 
um kurzfristige Schwan- 
kungen auszugleichen. Die 
Abfrage geht auch in 
BASIC: 


18 a=65288 
28 pokea,258:b=peek(a):rem port I! 
3@ print 


muß dieses Ergebnis in 
der Regel zu einem Alarm- 
signal verarbeitet werden. 
Die einfachste Möglich- 
keit besteht in der Ver- 
wendung des Sound-Be- 
fehls und der entspre- 
chenden Bildschirmanzei- 


AUSLÖSEN 
DES ALARMS 


ge. Jedoch kann meist der 
Fernseher nicht die ganze 
Zeit eingeschaltet bleiben. 
Daher hier ein einfacher 
Tip, wie ein Alarm aus- 


18 sys1638:b=-peek( 2834) :rem port! 


gelöst werden kann. Am 
Kassettenport stehen 
fünf Volt zur Verfügung, 
mit denen normalerweise 
der Recordermotor be- 
trieben wird. Wird hier 
ein Piezosummer (ver- 
braucht sehr wenig 
Strom) angeschlossen, sı 
kann durch Einschalten 
des Kassettenrecorders 
dieser Summer betätigt 
werden. Genauso kann 
ein Relais gesteuert wer- 
den, das eine Sirene in 
Betrieb setzt. 


bandi;band2;band4;bandß; band64; band128: 


goto 28 


Die Ergebnisse sind je- 
doch fehlerhaft, da 
manchmal der Interrupt 
zwischen POKE und 
PEEK den Wert ver- 
ändert. 


. Wenn der Cl 6/Plus4 ein 


Ereignis an einem der 
Joystickports feststellt, 


sys1638:b=peek( 2934) 
if bandi then print"”"oben" 
if band2 then print”unten” 


if band4 then print”links” 
if band8 then print"”rechts"” 
goto1B8 
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Wir hoffen, daß Sie durch 
diese Beispiele angeregt 
wurden, Ihren C16/Plus4 
zu Meßzwecken einzuset- 
zen. Wir würden uns freu- 
en, wenn Sie uns Ihre An- 
wendungen mitteilen 
würden. 


TEXTE RECHTS- 
BÜNDIG AUSDRUCKEN 


Mit SCRIPT/PLUS kann 
man auf einfache Weise 

beliebige Texte erstellen. 
Besonders schön werden 
diese mit der Formatan- 


VE TIPS 2 TRICKS HE 


“eisung jul (ustification 
=ın). Diese bewirkt, daß 
alle Zeilen gleich lang 
werden. Fehlende Buch- 
staben werden durch Leer- 
zeichen zwischen den 
Worten aufgefüllt. Damit 
Jabei nicht zu große Lük- 
xen entstehen, muß am 
Zeilenende richtig ge- 
trennt werden. 

Hierzu hat SCRIPT/PLUS 
die Möglichkeit, sogenann- 
te Soft Hyphen (weiche 
Trennungszeichen) einzu- 
fügen. Dies geschieht mit 
ESC und COMMODO- 
RE/-—. Im Handbuch ist 


TRENNVORSCHLÄGE 


hier ein Druckfehler und 
es wird die Ctrl-Taste an- 
gegeben. Steht ein sol- 
ches Zeichen im Wort, so 
wird an dieser Stelle ge- 
trennt, wenn sie am Zei- 
lenende zu stehen kommt. 
Der Nachteil liegt darin, 
daß nur ein solches Tren- 
nungszeichen eingesetzt 
werden kann. Mehrere 
Trennvorschläge schaden 
‚war nichts, da sie nor- 
malerweise nicht ausge- 
druckt werden, aber es 
wird prinzipiell das erste 
verwendet, auch wenn ein 
anderes eine günstigere 
Trennung ergäbe. Soll 
ein wichtiger Text im 
Blocksatz (beispielsweise 
rechtsbündig) gedruckt 
werden, ist es unumgäng- 
lich, die Trennungen von 
Hand einzufügen. Dazu 
muß die Zeilenlänge im 
Eingangsmenü auf die 
gewünschte Länge einge- 
stellt werden und nach 
jeder Silbentrennung der 
Abschnitt neu formatiert 
werden. Dies ist sehr auf- 
wendig. Daher haben wir 
Ihnen das Hilfsprogramm 
SILBENTRENNUNG ge- 
schrieben, mit dem die 
optimale Trennung auf 
einfache Weise möglich 
ist. Das Programm ist auf 
Diskettenbetrieb ausge- 
legt, kann aber leicht mit 
Hilfe des Handbuchs für 
Kassettenbetrieb umge- 
schrieben werden. Der 
mit SCRIPT/PLUS (oder 
einem anderen Programm- 
das mit ASCII-Zeichen ar- 
beitet) erstellte Text 


wird in den Speicher ge- 
laden und Zeile für Zeile 
abgearbeitet. Immer, 
wenn ein Leerzeichen 
oder Trennungszeichen 
(auch Soft Hyphen) ge- 
funden wird, überprüft un- 
ser Programm, ob die er- 


forderliche Zeilenlänge er- . 


reicht ist. Bei einer zu lan- 
gen Zeile wird diese am 
Schirm angezeigt und 

mit Hilfe der Cursorta- 
sten (links und rechts) 

das Trennungszeichen an 
die gewünschte Position 
gebracht. Mit Return 
wird die Zeile abgeschlos- 
sen und das Programm 
fügt automatisch den 
Return-Code 13 in den 
Text ein. 


PROGRAMM- 
ERKLÄRUNG 


Zeile 100: Der Speicher 
wird begrenzt, um einen 
geschützten Textspeicher 
zu schaffen. 

Zeile 160-180: Die Zei- 
lenparameter und der 
Filename werden abge- 
fragt. Die Variable DM 
gibt an, wieviele Zeichen 
noch bis zum Zeilenende 
fehlen dürfen, damit das 
Programm automatisch 
ein Return setzt. 

Zeile 200-250: Einlesen 
des ASCII-Textes in den 
Speicher. Die Print-An- 
weisung in 230 kann weg- 
gelassen werden (der Ab- 
lauf wird dadurch schnel- 


ler). 

Zeile 280: Das alte Text- 
file wird in eine Sicher- 
heitskopie umbenannt. 
Hier kann der Rename-Be- 
fehl nicht verwendet wer- 
den, da dieser keine Va- 
riablen verarbeitet. 
(Anmerkung der Redak- 
tion: Der Rename-Befehl 
kann Variablen verarbei- 
ten, wenn diese in Klam- 
mern eingeschlossen wer- 


den.) 

Zeile 300: Seq-File zum 
Schreiben öffnen. 

Zeile 330-370: Überprü- 
fung, ob ein Trennungs- 
zeichen gefunden wurde. 
Zeile 380-390: Prüfung 
auf Zeilenende. Ist die 
maximale Zeilenlänge er- 
reicht und das letzte Tren- 
nungszeichen zu weit ent- 
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SILBENTRENNUNG 


15 rem silbentrennung =========016 
28 rem (p) commodore welt team 

30 rem ================= === 
48 rem (c) by r. schmid-fabian 

58 rem heidelberg 

68 rem 

78 rem basic v3.5 

88 rem c16/116/p4 Floppy 

98 rem =================== === 
188 poke55,8:poke56,39:clr 


118 1$=" ":b$="-":rem trennzeichen 
128 sh$=chr$( 192) :rem soft-trennze 
ichen 

138 cr$=chr$( 813) :c1$=chr$( 147) 
149 1i$=chr$( 157) :re$=chr$( 29) 

158 ro$=chr$( 146) :rv$=chr$( 18) :d$= 
1$+1$+1$+1$ 

168 input”max. Zeilenlaenge";ml 
178 input”max. Abweichung”; dm 

188 input”file-Name”;p$ 

199 rem FrtFHr einlesen KRERKEREERR 
288 trap258 

218 open2,8,2,p$+",s,r"” 

228 fori=12888t 0608898 

238 get#?,a$:pokei,asc(a$) :printa$ 


’ 

248 if st=8 then next 

258 close2:hlt=i 

268 rem #### rename v. p$ 
278 printchr$( 147)"Jetzt wird "+ch 
r$( 34) +p$+chr$( 34) +" umbenannt (Ta 
ste)":getkeya$ 

288 open1,8,15,"r:"+left$(p$+d$+d$ 
+d$, 12) +" .bak+"+"="+p$:closel 

298 rem ##*##2 bearbeiten #FH#F3t#% 
38 open2,8,2,p$+",s,w” 

318 for i=12008 to hit 

328 a$=chr$(peekli)) 

338 if a$=sh$ then tp=zl:en$=b$:go 
t0388 

348 if a$=cr$ then printrv$w$:prin 
t#2,w$:z1=0:w$="":g0t0448 

358 w$=w$+ta$:zl=zl+1 

368 if a$=1$ then tp=zl:en$="" 

378 if a$=b$ then tp=zl:en$=b$ 

388 if zi<ml then 440 

398 if(lml-tp)>dm then gosub 488 
408 pr$=left$(w$,tp) ten$:printrv$p 
r$ _ 

418 printf#2,pr$ 

428 w$=right$(w$,ml-tp) 

438 tp=8:z1=1en(w$) 

448 next 


458 close2:end 
468 rem KERNE trennung KEENFERERE 


470 rem ###### von hand ###sreraze# 


RREREER 


<kg> 
<ho> 
<ng> 
<jp?> 
<kp> 
<ah> 
<n1> 
<ba> 
<jg? 
<bi> 
<le> 


<li> 
<bm> 
<el> 


<pb> 


<df> 
<ae> 
<nn? 
<la> 
<kc> 
<de> 
<kj> 


<bo> 
<mi> 
<hd> 
<el> 


<na> 


<dl> 
<fc> 
<kp> 
<gm> 
<gp> 


<nb> 


<jh> 
<gk> 
<bf> 
<je> 
<oa> 
<na> 


<ph> 
<ig> 
<gk> 
<na> 
<pf> 
<pg> 
<o0o> 
<og> 


BTIPS& ck eg 


488 d=8:x$="":forv=i+itoit6:x$=x$+ 
chr$( peek(v)):nextv 

498 if asc[(x$)=32 then i=i+t1:tp=le 
n{w$) :en$="":return 

san x$=rv$+tx$ 

518 pr$=right$(w$,ml) :z$=left$(pr$ 
‚ml-d) :t$=right$(pr$,d) _ 

528 en$=b$:p=peek[li-d):if p=32 the 
n en$=1$ 

538 printchr$( 147) +z$+rv$+ten$+ro$+ 
t$+x$ 

548 getkeygq$ 

558 if q$=1i$ then d=d+1 

568 if q$=re$ then d=d-1:if d<®ß th 
en d=® 

578 if q$=cr$ then tp=1len(w$)-d:en 
="-":printcl$:return 

588 goto5S1B 

590 rem ===================== 2022 
688 rem programmende 
618 rem =======-=-================== 


SCHALTER.CIS 
18 rem schalter ===============016 
28 rem HRRHRRRRRHRRRRRRRRRRIEITTEN 


38 rem #* abfrage der optischen *#* 
48 rem #####r# schalter FHrztreatr 


58 scenclr:for i=1 to 18:char,1,i,"” 


ren Texten. Natürlich 
kann man für diesen Preis 
kein Desktop-Publishing- 
Programm verlangen. 
Aber es können auf ein- 
fache Weise mit SCRIPT/ 
PLUS auch zweispaltige 
Texte erstellt werden. 
Dazu muß der Text zu- 
erst vollkommen fertig 
eingegeben sein. Dann 
begrenzt man die Zeilen- 
länge zum Beispiel auf 40 
Zeichen mit dem Pro- 
gramm SILBENTREN- 
NUNG. Im Eingangsme- 
nü von SCRIPT/PLUS 
wird die gesamte Zeilen- 
länge (zwei Spalten + Ab- 


stand + Rand) eingestellt. 


Nachdem der Text einge- 
laden wurde (Wordwrap 
ausschalten) ist der Text 
auf die linke Hälfte der 
verfügbaren Breite be- 
schränkt. Jetzt kommt 
eine außergewöhnliche Ei- 
genschaft von SCRIPT/ 
PLUS zur Anwendung — 
nur wenige Textsysteme 
haben diese. Mit Esc und 
Shift R kann ein kom- 


pletter Textblock markiert 
werden (es erscheint SET 
COLUMN RANGE) und 
nach Drücken von Return 
kann dieser mit den Cur- 
sortasten verschoben wer- 
den. Angenommen, es 
sollen 50 Zeilen auf eine 
Seite gedruckt werden, so 
muß der Text ab Zeile 51 
bis 100 als Block mar- 
kiert und zuerst nach 
rechts und dann nach 
oben verschoben werden, 
bis die beiden Spalten ne- 
beneinander stehen. Vor- 
sicht! Der markierte 
Block kann den stehen- 
den Text überschreiben, 
wenn der Block über die- 
sen Text geschoben wird. 
Dieser Vorgang wieder- 
holt sich, bis alle Seiten 
zweispaltig im Speicher 
stehen. Dabei kann auch 
Platz für Bilder gelassen 
werden. Nach Einfügen 
von Formatzeichen und 
Seite-Ende-Kennung 
kann jetzt der zweispalti- 
ge Text ausgedruckt 
werden. 


DER COMPUTER SPIELT NACH NOTEN 


schalter"+str$(i-1)+":":next <gb> 
68 tB=ti <ag> 
78 do:a=joy( 1) :b=joy( 2) :loop until 

a+b <ij> 
88 dt=ti-tA <kc> 
98 ifla+tb)=128 then a=-9#( a=128) :b 
=-9#(b=128) <mb> 
188 sw=(a+b+1) /2-5*(b>B) <ga> 
118 for i=1 to 18:char, 15,i,str$(- 
(i=sw)) :next <fo> 
128 goto68 <ia> 
138 rem =========================2 cnp> 
148 rem programmende <fe> 
158 rem =====================2===== cnj> 


fernt, wird in das Unter- 
programm ab Zeile 480 
verzweigt. 

Zeile 480: Die nächsten 
fünf Zeichen werden aus 
dem Speicher geholt, da- 
mit man beim Trennen 
die Fortsetzung des Wor- 
tes sehen kann. 

Zeile 490: Ist das Folge- 
zeichen ein Leerzeichen, 
so wird die Zeile selb- 
ständig abgeschlossen. 
Zeile 500-550: Die über- 
lange Zeile wird ange- 


zeigt. Der Wort- oder 
Satzteil, der über die ma- 
ximale Zeilenlänge hin- 
ausgeht, erscheint revers. 


ZWEISPALTIG 
DRUCKEN 


SCRIPT/PLUS ist zwar 
sehr komfortabel und 
auch das im Plus4 einge- 
baute Textsystem erlaubt 
(in gewissen Grenzen) 
die Erstellung von größe- 


Vom Blatt zu singen oder zu spielen, ist 
nicht jedermanns Sache. Schreiben Sie die Noten 
doch einfach ab, und zwar mit dem Computer. 

Dann können Sie hören, wie es richtig klingt. Außer- 
dem läßt sich die Melodie in eigene Programme 
einbinden. Gleich zwei Programme sorgen für die 
richtige Musik. 


Beide Programme gehören zusammen. Das erste Pro- 
Brenn, heißt „Notenblatt“, das zweite „Datamaker 
Musik“, 


NOTENBLATT 


Nach dem Start können Erklärungen abgerufen wer- 
den. Danach wird das Notenblatt mit vier Notenzei- 
len und Tastenerklärungen gezeichnet. 

Jeder, der mit der Musik nicht allzuviel am Hut hat, 
der auch nicht Klavierspielen kann und somit mit 
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zfessionellen Programmen nicht zurechtkommt, 

=n mit diesem Programm die Noten aus einem Lie- 
2 erb uch einfach abschreiben. 
>25 Programm verarbeitet 18 Noten mit den dazuge- 
sorgen Halbtönen. Eingangs gesetzte # oder b wer- 

n über das ganze Stück beibehalten. Auflösungen 
>n = oder b im Takt werden nach Setzen des näch- 
-en Taktstriches für weitere Eingaben wieder aufge- 
»oben. Ebenso gelten im Takt geschriebene # oder b 

vr für den betreffenden Takt. 

=s ist auch möglich, die im Stück vorgesehenen Pau- 
en mit einzugeben. 

Des Stück kann jederzeit abgespielt werden, danach 
=ssen sich weitere Eingaben vornehmen. Insgesamt 
nd 500 Töne und Pausen möglich. 

Das Stück kann nach Beendigung der Eingabe auf 
Ohskette gespeichert werden. 


DATAMAKER MUSIK 


Dieses Programm wandelt ein sequentielles File (Mu- 
=kstück) in Datazeilen zur Verwendung in eigenen 
Programmen um. Um diese Data auch verwenden zu 
<önnen, ist es am besten, das in den Zeilen 500 bis 
500 des Programms unter REM angegebene Pro- 
zramm zu verwenden, das auch einen Ausstieg aus 
em Musikstück ermöglicht. 


1. Notenblatt 


Dokumentation: 


Zeilen 100— 590 Notenblatt und SHAPES 


zeichnen. 
Zeilen 610- 810 Hauptteil der Eingabe. 
Zeilen 830—- 900 Erkennen der Tonhöhe und 
Tondauer. 


Zeilen 920-1020 
Zeilen 1040-1160 


Zeilen 1180-1310 
Zeilen 1320-1520 
Zeilen 1540-1580 
Zeilen 1600-1660 


Unterprogramm “Ende“. 

Laden einer Melodie von Dis- 
kette. 

Speichern einer Melodie 
(Diskette). 

Setzen der Tonerhöhungs- (#) 
und Tonerniedrigungszeichen ıb). 
Spielen einer eingegebenen oder 
geladenen Melodie. 

Schreiben des Auflösungszei- 
chens (# und b werden für einen 
Takt aufgehoben). 

Setzen des Taktstriches. 
Notenzahl (500 Noten) über- 
schritten. 

Löschen einer Eingabe. Nur die je- 
weils letzte Eingabe kann gelöscht 
werden. 

Schreiben des Wiederholungszei- 
chens. Die Noten, die zwischen 


Zeilen 1680-1800 
Zeilen 1820-1870 


Zeilen 1890-2030 


Zeilen 2050-2160 


zwei Wiederholungszeichen stehen, 


werden nochmals übernommen. 
Setzen des Eingabepfeiles. 
Schreiben der Pausen. 
Variablen, Einleitung. 
Fehlerkanalabfrage. 

Notendata. 


Zeilen 2180-2260 
Zeilen 2280-2340 
Zeilen 2360-2860 
Zeilen 2870-2980 
Zeilen 3000-3170 


Erläuterungen zum Programmablauf: 


Nachdem das Programm mit RUN gestartet wurde, 
können Bedienungsinstruktionen abgefragt werden. 
Danach wird das Notenblatt gezeichnet sowie am un- 
teren Bildschirmrand die Tastenbedeutung angezeigt. 
Im einzelnen: 
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Wiederholung Anfang. 

Wiederholung Ende. 

Ganze Note, 2 = halbe Note, 3 = viertel Note, 

4 = achtel Note, 5 = sechzehntel Note, 6 = zwei- 
unddreißigstel Note. 

#,8=b. 

Auflösungszeichen, hebt # Be. b für diesen 
Takt auf. 

Zeichnet den Taktstrich (wichtig, wenn innerhalb 
eines Takts ein Auflösungszeichen oder ein # 
oder ein b geschrieben wurde). 

Ganze Pause, D = halbe Pause, E = viertel Pause. 
Achtel Pause, G = sechzehntel Pause. 

Ende des Programms mit Sicherheitsabfrage, ob 
Melodie gespeichert wurde. 

Laden einer Melodie von Diskette. 

Speichern einer Melodie auf Diskette. 

Spielen einer eingegebenen Melodie zu jedem 
Zeitpunkt der Eingabe oder einer von Diskette 
geladenen Melodie. 

Löschen aller Eingaben und Neustart. Vorsicht: 
Keine Sicherheitsabfrage! 

Tondauer des zuletzt eingegebenen Tones oder 
einer Pause wird um die Hälfte des Wertes ver- 
längert. 

_ = Löscht die letzte Eingabe (Note oder Taktstrich 
oder # oder b oder Auflösungszeichen oder Pause 
oder Wiederholungszeichen). 
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Zur Eingabe: 


Nachdem das Notenblatt und der Eingabepfeil oben 
links gezeichnet sind, können die Noten von einem 
Musikstück abgeschrieben werden. 
Zu Anfang — wie beim Musikstück auch — wird die 
Tonart durch # oder b bestimmt. Dazu mit ‚‚Cursor 
down‘ und ‚Cursor up“ auf oder zwischen die ent- 
sprechenden Linien der ersten Notenzeile fahren und 
7 oder 8 drücken. Danach auf die entsprechende No- 
tenlinie fahren und das nächste # oder b schreiben. 
Diese Eingaben gelten für das ganze Stück. 
Jede Notenzeile besteht aus fünf Notenlinien und vier 
Hilfslinien. Die Hilfslinien sind auf einem normalen 
Notenblatt nicht gezeichnet und hier nur gestrichelt. 
Im Bereich der unteren Hilfslinie bis zur oberen Hilfs- 
linie jeder Notenzeile können Noten plaziert werden. 
Kommt im Musikstück ein Taktstrich, ist dieser mit 
B zu schreiben. Die richtige Spalte sucht sich der Com- 
puter selbst für alle Eingaben. Die Wiederholungszei- 
chen sehen wie folgt aus: 
Anfang 11:0 
Ende ll g 
Wenn im Musikstück von Anfang bis Ende wiederholt 
werden soll, genügt die Eingabe g am Ende des Musik- 
stückes, und das ganze Stück wird wiederholt (nicht 
nochmal geschrieben, aber die Noten werden zwei- 
mal hintereinander gespeichert). 
Kommt im Musikstück zwischendurch ein # oder b, 
so ist unbedingt auf die Eingabe des Taktstriches zu 
achten, denn # oder b gelten nur bis zum nächsten 
Taktstrich. Das gleiche gilt für ein Auflösungszeichen. 
Wird der Taktstrich vergessen, wird ab dieser Stelle 
das ganze Stück falsch, da dann jede entsprechende 
Note mit Erhöhung, Erniedrigung oder beim Auflö- 
sungszeichen ohne diese gespeichert wird. 
Während der Eingabe kann jederzeit das Musikstück 
mu P gespielt und die Eingabe dann fortgesetzt wer- 
en. 


Bitte lesen Sie weiter auf Seite 95 


NOTENBLATT 


18 rem notenblatt ==============94 
28 rem (p) commodore welt team 

30 Ten =Fa3ssassnsmisnnnierngerine 
AB rem (c) by reiner hickel 

58 rem 

68 rem 

78 rem basic v3.5 

88 rem plus4 (c16/116 + 64kb) ‚disk 
98 rem ===========2================ 
188 graphic1,1:clr:gosub3258:color 
1,2,4:colorß, 1:scnelr 

1198 gosub2368:volla 

128 scnelr:forj=16t0136step48 

138 fori=8t0o4:sound3, 750+1*50,5 
148 drawi, 18, j+ti*4t0319, jti*4 

158 nexti,j j 

168 forj=8t0128step48 

178 fori=jtojt4step4 

188 fork=18t0314step8:sound3, 788+k 
‚2 

198 drawi,k,itokt+t4,i 

288 drawi,k,i+28tok+4,i+28B 

218 nextk,i,j 

228 draw1,18,8t018,168:sound3,988, 
1 

238 draw1,8,168t0319, 16810319, 169t 
08, 169:sound3, 988,2 

248 char, 11,22,"tastenbedeutungen” 
258 char1,8,22,"loesch= -”:char1,® 
‚23,"play”+b2$+"= p" 

268 char1,8,24,"save"+b2$+"= s" 
278 char1,38,22,"punkt = +":chari, 
31,23,"ende = h” 

288 chari,31,24,"load = 1” 

298 z=B:fori=11t028 

308 char,11,23,"0123456789abedefg" 
318 draw1,89, 192089, 198:draw1,91, 
192t091,198:draw1,93, 194:draw1,93, 
196:sound3, 988,4 

328 fori=99t0139step8:sound3, 858+i 
‚a5 

338 circle1,1,197,2,1 

348 ifi>187thenpaint1,i,197,1:soun 
d3,658,5 5 

358 nexti 

368 fori=189t0141step8:sound3, 858+ 
i,i 

378 draw1,i,192toi, 197 

388 nexti:sound3, 958, 18 

398 draw1,125,192t0127,192 

488 draw1,133, 1920135, 192:drawi,1 
33,193t0135,193 | 

418 draw1,141,192t0143, 192:drawi, 1 
41,193t0143,193:draw1,141,194t0143 
‚194 

428 draw1, 146, 194t0146,199:draw1, 1 
48,193t0148, 198:draw!, 145, 195t0 158 
‚192 


<li> 


<of> 


438 draw1, 145, 199t015®, 196 

448 drawi, 154, 192t0154,198t0157,19 
60157, 1940154, 194 

458 draw1,161,194:draw1,161,196:dr 
aw1,163,192t0163, 198:draw1i, 165, 192 
t0165, 198 

468 draw, 169, 192t0169, 197t0172,19 
6 

478 draw1,169, 1940172, 193t0172,19 
9 

480 draw1, 179, 192t0179, 199 

4938 draw1, 186, 193t0189, 1930189, 19 
40186, 194:draw1, 184, 192t0191,192 

598 drawi,192,195t0199,195:draw1,1 
94 ,193t0197, 193t0197, 1940194, 194 

518 draw1,283,192t0284, 194t0283, 19 
60284 , 1970283, 198 

528 drawi,218, 194t0214,194t0211,19 
9 

538 draw1,218,194t0222,194t0217,19 
9:draw1,218, 195t0221, 195 

548 drawi1,3,6t06,8t03, 18:ifoo=1the 
noo=@:ns=an+t19:z=1:zp=6:return 

5590 fori=8B8to216step8 

56% sshapen$( (i-88) /8) ,i, 192,i+7,1 
99 

578 nexti:sound1,588,3 

588 sshapep$,8,6,6,1@:sshapec1$,8&, 
11,6,19 

598 sshapecn$, 11,8,18,42 

688 rem =hauptschleife============ 
618 z=1 

628 do 

638 getgq$:ifg$=""then81 

648 sound, 934, 1 

658 ifg$=cu$thenh=zp:zp=zp+t2:gosub 


2188 


668 ifg$=co$thenh=zp:zp=zp-2:gosub 
2188 

678 ifgq$="8"thenwa=nz:gosub2858 
688 ifq$="9"thenwe=nz:gosub2858 
698 ifq$="+"thensound3, 758,5:1(nz) 
=1.5*l(nz) 

788 ifgq$="-"thengosub 1898 

718 ifq$="8"org$="7"thengosub 1338 
728 ifgq$>"8"andgq$<"7"thengosub838 
738 ifq$="a"thengosubi688 

748 ifq$="b"thengosub 1688 

758 ifq$="h"then928 

768 ifq$="1l”"thengosub 1848 

778 ifq$="s"thengosub118B8 

788 ifg$="p"thengosub 1548 

798 ifq$="n"thenrun 

888 ifq$>"b"andgq$<"h"thengosub2288 
818 loop 

828 rem =noten erkennen=========== 
838 gosub2188:w=( zp-( z-1) *48-4) /2: 
848 a=h(w) +talw) +1:q=vallg$) :h=zp-3 
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#58 nz=nz+1:ifnz>588thengosub 1828 
5582 s{nz)=t(w,a) 

7® 1{nz)=64/(2#(q-1)) 

s®@ soundi,s{nz) ,‚l(nz) 

#9@2 gosub2248 

=@®2 lo=®:return 

18 rem =sende===================== 
=2® graphicd, 1 

338 printceu$cu$tab(3)"ist die melo 
sie gespeichert? (j/n)” 

348 getkeyx$ 

358 ifx$="j”"thengraphicclr:end 

358 printcu$tab(3)"soll sie gespei 
shert werden? ( j/n)” 

378 getkeyx$ 

388 ifx$="j"thengosub 1188 

398 printcu$tab( 3) "weitere melodie 
n eingeben ( j/n)" 

1888 getkeyx$:ifx$="j"thengraphic1 
‚1:g0t0128 

1218 graphicclr:iend 

1828 goto928 

1838 rem =melodie laden=========== 
ıB48 graphicß, 1 

1858 printcu$cu$tab( 3) "mit <d> wer 
den alle musiktitel” 

1868 printcu$tab( 3) "ausgedruckt, s 
onst andere taste” 

1878 getkeyx$:ifx$="d"thendirector 
ya” 

1888 printcu$tab(3) ;:input"titel d 
er melodie"”;na$:na$=1left$(na$, 12) 
1898 open2,8,2,na$+",s,r" 

1188 input#2,nz 

1118 fori=itonz 

1128 inputf#2,s(i) 

1138 input#2,1(i) 

1148 nexti 

1158 close2 

1168 graphic1,®:return 

1178 rem =melodie speichern======= 
1188 graphic®, I 

1198 printcu$cu$tab( 3) ; :input"tite 
1 der melodie";na$:na$=left$(na$,9 


1288 open 15,8, 15 
1218 open2,8,2,na$+",s,w" 
1228 gosub2878:ifu=ithenu=8:goto11l 


1238 ifu=2thenu=8:goto1288 
1248 ifu=3thenu=®:return 
1258 printf2,nz 

1268 fori=itonz 

1278 print#2,s(i) 

1288 print#2,1(i) 

1298 nexti 

1388 close2:close15 

1318 graphic1,8:return 


1328 rem =setzen von # oder b===== 
1338 ifnz>dthen 1448 

1348 w=( zp-( z-1) 40-4) /2:ifvallq$) 
=7thenh( w)=1:elseh( w) =-1 

1358 ifw<Sthenh( w+7) =h(w) :hlw+14) = 
h{w) 

1368 ifw>Aandw<12thenh( w+7)=h(w) 
1378 ifw>?andw<15thenh( w-7) =hlw) 
1388 ifw>14thenh( w-14) =h({w) :h(w-7) 
=h{ w) 

1398 fori=zp-2t0128+zp-2step4® 
1488 gshapen$( vallq$)),ns,i,2 

1418 nexti . 

1428 ns=ns+iß:an=ns:xy=xy#1 

1438 lo=@:return 

1448 gshapen$( vallgq$)) ,ns,zp-2,2:x 
y=1 

1458 w=( zp-( z-1) 48-4) /2:ifvallg$) 
=7thenh( w) =1:elseh( w)=-1:r®w . 

1468 ifw<Sthenh( w+7) =h(w) :h(w+14) = 
hiw) :qew+7:t=w+14 

1478 ifw>4andw<12thenh( w+7) =h(w) :s 
zw+7 5 

1488 ifw>7andw<15thenh( w-7) =hlw) :u 
=w-7 

1498 ifw>i4thenh( w-14)=hlw) :hLw-7) 
=h[ w) :v=w-14:0=w-7 

1588 ns=ns+18:ifns>312thenns=an:z= 
z+1 

1518 ifz=5thenz=1:00=1:gosub128 
1528 lo=B:return 

1538 rem =lied spielen============ 
1548 fori=1tonz 

1558 wait65297,8:ifs(i)=Bthenforp= 
1tol(li) :nextp:goto1578 

1568 soundi,s(i),1(i):sound2, s(i)*+ 
2,1(i) 

15780 nexti 

1588 return 

1598 rem =aufloesungszeichen====== 
1688 q=dec( g$) :h=zp-2:xy=1 

1618 w=(zp-( z-1) *48-4) /2:a(w) =-h(w 
):gosub2248 

41628 ifw<Sthenal w+7) =-h(w) :alw+14) 
=-h( w) 

1638 ifw>4andw< 12thenal w+7) =-h(w) 
1648 ifw>?andw<15thenal w-7) =-h( w) 
1658 ifw>14thenalw-7)=-h[w) :alw-14 
)=-h(w) 

1668 lo=@:return 

1678 rem =taktstrich=========== === 
1688 h=( z-1) #48+28:q=dec( q$) 

1698 gosub224B: xy=1 

1788 fori-1t018 

1718 ali)=® 

1728 nexti 

1738 ifg<>Bthenh( gq) =d:q=® 

1748 ifr<>Bthenh(r)=8:r=®d 
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1758 
1768 
1778 
1788 
1798 
1888 
1818 


1828 
1838 


ifs<>Bthenh( s) =8:s=® 
ift<>8thenh( t)=8:t=8 
ifo<>@thenh( 0) =8:0=8 
ifu<>dthenh( u) =8:u=® 
ifv<>@thenh( v)=8B:v=8 
lo=-@:return 

rem =notenzahl ueberschritten 
graphicd, 1 r 
printcu$cu$cu$tab( 3) "mehr als 
588 toene gehen nicht.” 

1848 printtab(3)cu$"bitte melodie 
speichern und neu” 

1858 printtab(3) cu$"dimensionieren 
(zeile 2388)” 

1868 printtab( 3) cu$cu$cu$"”taste dr 


uecken"” 
1878 getkeyx$:graphic1,®:return 
1888 rem =note loeschen=========== 


1898 
1998 
1918 
1) 
1928 nz=nz-1:ifnz<Bthennz=® 

1938 ns=ns-18:ifns<anthenns=312:z= 
z-1:ifz<eithenz=1:ns=an 

1948 h=( z-1)*40+8 

1958 gosub2188:gshapecn$,ns,pa-6 
1968 lo=1:return 

1978 h=( z-1)*48 

1988 ns=ns-1B:an=an-1B:ifns<12then 
ns=12:an=12:xy=xy-1 

1998 ifxy<@thenxy=® 

2888 fori=htoh+t12Bstep4d 

2818 gshapecn$,ns,i 

2828 nexti 

2838 lo=1:return 

2848 rem =wiederholungszeichen==== 
2858 ifnz>S@ßthengosub1828:return 
2868 h=int( zp/42) 

2078 h=49*h+28:q=vallg$) 

2088 gosub2248:xy=1 

2898 ifgq$="8"thenreturn 

2180 g=we-wa 

2118 ifg+nz>5B8@thengosub 1828: retur 
n 

2128 fori=we+titowetg 

2138 sli)=s(i-g) :1(i)=lli-g) 

2148 nexti:nz=nzt+tg 

2158 wa=d:we=® 

2168 return 

2178 rem =pfeil positionieren===== 
2188 pa=( z-1)#48+6 

2198 pe=z*48 

2288 ifzp>pethenh=zp:zp=pe 


iflo=ithenreturn 
ifxy>Bandnz=Bthen 1978 
ifxy>Bandnz>dthenxy=8:goto193 


2218 ifzp<pathenh>zp:zp=pa 

2228 gshapec1$,8,h-4:gshapep$,®@,zp 
2238 return 

2248 gshapen$(gq) ,‚ns,h,2:ns=ns+1®:i 
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fns>312thenns=an: z=z+1 

2258 ifz=5thenz=1:00=1:gosub128 
2268 xy=®:return 

2278 rem =pausen setzen=========== 
2288 q=asc( q$) -55 

2298 pp=2#tl 16-(q-4)) 

2388 h=( z-1) #48-28*#( pp=256) -21*( pp 
=128) -28*( pp=64) -28*( pp=32) -28*( pp 
=16) 

2318 gosub2248 

2328 nz=nz+1:ifnz>588thengosub 1828 
2338 s(nz)=8:1(nz)=3.5*pp+4*(q-8)*+ 
28 

2348 lo=®:return 4 

2358 rem =variablen=============== 
2368 zp=6:nz=@:wa=ß:we=®:ne=312:an 
=12:ns=12:1a=8 

2370 dim s(588) ‚,1(588) ‚n$( 16) ,h( 18 
) ‚al 18) ,t(18,2) 

2388 cu$=chr$f 17) :co$=chr$( 145) 
2398 fori=1t018 

24088 for j=®to2 

2418 readt(i,j) 

2428 nextj,i 

2438 char, 1,1,”werden instruktione 
n gewuenscht?( j/n)” 

2448 getkeyx$ 

2a58 ifx$="n"thenreturn 

2468 ifx$<>" j"then2438 

2478 scnelr:char,1,1,"mit diesem p 
rogramm koennen musik-" 

2488 char, 1,3,"stuecke von einem n 
otenblatt abge-" 

2498 char,1,5,"schrieben werden. m 
it cursor up/down” 

2588 char, 1,7,”wird der pfeil (lin 
ker rand) auf die” 

2518 char, 1,9,"entsprechende noten 
linie gestellt." 

2528 char, 1,11,"mit ’7’ 
erden die # oder b,"” 
2538 char, 1,13,"mit ’1° - 
notenwerte,"” 

2548 char, 1,15,"mit ’®° 
ie wiederholungen” 

2558 char, 1,17,"mit ’a’ 
sungszeichen” 

2568 char, 1,19,"mit ’b’ 
riche und mit” 

2578 char, 1,21,”’c’ - ’g’ die paus 
en eingegeben.” 

2588 char, 18,24,"taste druecken” 
2598 getkeyyx$ 

2688 scnelr:char,1,1,"weitere tast 
enbedeutungen:” 

2618 char, 1,3,"’1’= lied laden; ’s 
’= lied speichern" 

2628 char, 1,5," "h’= programm beend 


oder ’8’ w 


’6’ die 
oder ’9’ d 
das aufloe 


die taktst 
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#38 char, 1,7,”’n’= speicher loesc 
en, neuanfang” 

2548 char, 1,9,"’p’= lied spielen” 

2#5®@ char, 1,11,"’+’” verlaengert di 
= tondauer um die” 

2558 char,5,13,"haelfte” 


er 


2558 char, 1,17,"der taktstrich ist 
stets zu setzen," 

2598 char, 1,19,"wenn auch im musik 
stueck ein solcher" 

2788 char, 1,21,"erscheint (senkrec 
ster strich ueber" 

2718 char, 1,23,"5 notenlinien)" 
2728 char, 18,24,"taste druecken” 

2738 getkeyyx$ 

2748 scnceir:char,1,1,"die noten, d 
ie zwischen den wiederho-" 

2758 char, 1,3,"lungszeichen stehen 
‚ werden doppelt” 

2768 char, 1,5,"gespeichert. wenn n 
ur das wiederho-"” 

2778 char, 1,7,"lungszeichen ’9’ ge 
setzt ist, wird" 

2788 char, 1,9,"”das stueck vom anfa 

ng bis zu diesem” 

2798 char, 1,11,"wiederholungszeich 

en doppelt ge-" 

2888 char, 1,13,”speichert.” 

2818 char, 1,15,"zusaetzliche # ode 

r b gelten nur im” 

2828 char, 1,17,"takt, das aufloesu 

ngszeichen ’a’" 

2838 char,1,19,"ebenfalls. # oder 

b, die zu beginn" 

2848 char, 1,21,"”geschrieben wurden 
‚gelten fuer das" 

2858 char, 1,23,"ganze stueck.”"+b$+ 
" taste druecken"” 

2868 getkeyx$:return 

2878 input#15,aa,bb$,cc,dd 

2888 ifaa<>63then2958 

2898 ifaa=63thenprintcu$tab( 3)na$” 
existiert” 

2988 printcu$tab( 3)"soll ueberschr 

ieben werden? (j/n) 

2918 getkeyx$:ifx$="n"thenu=1:clos 

e15:close2:return - 

2928 ifx$<>"” j"then2918 

2938 na$="@8:"+na$:closei5:close2 
2948 u=2:return 

2958 ifaa=ßthenreturn 

2968 printaa;bb$,cc,dd:close2:clos 

e15:u=3 

2978 print"taste druecken” 

2988 getkeyx$:return 


<pc> 


<hp> 
<bp> 


<kg> 
<jb> 


<kh> 
<ak> 
<gg> 
<kk> 
<ij> 
<cc> 
<ka> 
<af> 
<hd> 
<hb> 
<mc> 


<hb> 


<kj> 
<be> 


<bj> 
<al> 
<bk> 
<hn> 
<ic> 
<mh> 
<el> 
<ag> 
<dd> 
<jn> 
<mn> 
<ef> 
<co> 
<j1> 
<bd> 
<bb> 


<lc> 
<on> 


— A _— 

2998 rem =notendatas============== <ee> 
3888 data911,917,923 <jm> 
3818 data984,911,917 <kb> 
3828 data8B89,897,984 <jc> 
3038 data872,881,889 —"; <mj> 
3848 data854,864,872 <fn> 
3858 data844, 854,864 <fj> 
3868 data822,834,844 <dg> 
30878 data?98,818,822 <ej> 
3888 data784,798,818 <ab> 
3898 data754,778,784 <ib> 
3188 data721,739,754 <mg> 
3118 data685, 764,721 <jc> 
3128 data664,685,784 <bf> 
3138 data628,643,664 <mn> 
3140 data571,596,628 <ag> 
3158 data544,571,596 <fm> 
3168 data585,516,544 <ic> 
3178 data418,453,485 a <oi> 
3188 rem aenderungen fuer datasett 
enbetrieb <li> 
3198 rem streiche 185% - 1878 <on> 
3208 rem streiche 1288 - 1248,2878 

- 2988 <bd> 
3218 rem aendere: 1898 open2,1,8,n 
a$ <pf> 
3228 rem aendere: 1288 open2,1,1,n 
a$ <pa> 
3238 rem aendere: 1388 close2 <mk> 
3248 rem nachspann================ <pd> 
3258 b$=chr$( 32) :b2$=b$+b$ <li> 
3268 b$=b2$+b2$:b$=b$+b$+b2$ <ji> 
3278 return <dd> 
3288 rem ========================= (jp> 
3298 rem 68671 bytes memory _ <oe> 
3308 rem 88852 bytes program <eg> 
3318 rem 88283 bytes variables <ji> 
3328 rem 85588 bytes arrays <ka> 
3338 rem 88659 bytes strings <bl> 
3348 rem 12288 bytes graphic <ha> 
3358 rem 33889 bytes free (®) <eh> 
3368 rem ========================= <di> 


EB 
Mi usik Fortsetzung von Seite 91 


Wenn zur Speicherung keine Diskette vorhanden ist, 
kann mit Datasette mit folgenden Programmänderun- 
gen gearbeitet werden: 

Streiche Zeilen 1050-1070 

Ändere: 1090 open2,1,0,na$ 


Streiche Zeilen 1200-1240 und 2870-2980 
Ändere: 1200 open2,1,1,na 
Ändere: 1300 close? 


Grundsätzliches zur Eingabe: Notenlinien abzählen, 
Pfeil am linken Rand auf die entsprechende Notenlinie 
setzen und eine der Tasten 1 bis 6, 7, 8, A oder C bis 
G drücken. 
Für die Eingabe 0, 9, B, „+“ oder „—“ ist die Stellung 
des Pfeiles gleichgültig, ebenso für F,H,L,S,P,N 
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DATAMAKER MUSIK 


18 rem datamaker musik==========p4 

rem (p) commodore welt team 

rem =====================22=2- 

rem (c) by reiner hickel 

rem 

rem basic v3.5 

rem plus4 (c16/116 + 64 kb) 

rem floppy (kassette anpassbar) 
rem ===============2=2=2==522==== 
graphic1,1:graphic® 
scnclr:input”"name des liedes”; 
open2,8,2,a$+",s,r” 

input#2,nz 

x=int(nz/3) 

ifnz-3#x=@thenh=8:goto178 

168 if(nz+1)/3=int( (nz+1)/3)thenh= 

1:elseh=2 

178 dims(nz+h) ‚l{nz+h) 

188 fori=itonz 

198 input#2,s(li),1(i) 

nexti 

close2:ifh=®then25® 


fori=nz+titonz+th 

s(i)=-8:1(i)=® 

nexti 

nz=nz+th 

ad=-4198 

fori=1itonz 

sil=int( s[(i) /256) :s2=s(i)-s1*25 


11=int( 1(i) /256) :12=1(1)-11%#25 


pokead,s1:pokead+1,s2:pokead+2 
:pokead+3,12 

ad=ad+4 
nexti:ed=4188+nz*4-1:3d=4188 
input”beginn der datazeilen”;d 


input”schrittweite”; sw 
senclr:print"378data";ad;"”,";e 
d;”",";da;”",";sw:print"goto388” 

368 poke1319, 19:poke1328, 13:poke13 
21,13:poke239,3 

378 rem =reservierte zeile======== 
388 restore378:x$="" 

398 readad,ed,da,sw 

488 ifad-i=edthenscnclr:printda”da 
ta@,8”":poke1319, 19:poke 1328, 13:pok 
e239,2:end 

418 forj=1to3 

428 s=peek( ad) *256+peekl ad+1) 

438 1l=peek( ad+2) #256+peek( ad+3) 
448 x$=x$+str$(s)+","”+str$(1l) 

458 ifj<3thenx$=x$+",” 

468 ad=ad+4 

478 next j:nd=datsw 

488 scnclr:print"378data”ad”,"ed”, 


<mp> 
<ho> 
<ng?> 
<hg> 
<pd> 
<od> 
<cd> 
<nb> 
<jg> 
<oa> 


<ka> 
<jf> 
<nb> 
<kk> 
<bo> 


<hm> 
<jb> 
<pj? 
<ai> 
<gp> 
<bm> 
<bf> 
<bm> 
<ap> 
<kg> 
<gf> 
<ek> 


<kf> 
<ed> 


<1j>> 
<dk> 
<km> 


<df> 
<ep> 


<bm> 


<nl> 
<he> 
<pc> 
<pn> 


<bn> 
<ik> 
<mo> 
<hn> 
<mj?> 
<mo> 
<hn> 


<la> 


. Zeilen 500-640 
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Zeilen 330-360 


Zeilen 3830-490 


"nd”,"sw:printstr$(da) "data”x$:pri 
nt"goto388” 

498 poke1319, 19:poke1328,13:poke13 
21,13:poke1322, 13:poke239,4:end 
508 rem um die datas dann zu verwe 
nden 

S1@ rem ist am besten folgendes pr 
ogramm 
528 rem 
sen: 
538 
548 


zu verwenden wegen der pau 


rem 18 
rem 28 restore:rem dataanfang 
lied 
volla:do:reads,1:getx$: 
ifx$<>""thenexit 
ifs=Bandl>Bthenfori=1to 
l:nexti:goto7® 
ifs=dandl=®then exit 
soundi,s,l 
wait65297,la:loop:retur 
n( hauptprogramm) 
688 rem la im waitbefehl entsprich 
t der vol-einstellung 
618 rem die anweisung wartet, bis 
der ton zu ende gespielt ist 
628 rem zeile 378 ist die fuer das 
programm wichtige datazeile 
638 rem aenderungen fuer datasette 
nbetrieb 


55B rem 38 


568 rem 48 
578 
588 


598 


58 
68 
78 


rem 
rem 
rem 


648 rem aendere: 118 open2,1,8,na$ 
658 rem ============== === === 
668 rem = achtung !!! = 
678 rem = programm darf nicht = 
688 rem = umnummeriert werden! = 
698 rem ======================222 
788 rem programmende 

718 rem ==>==================202 = 


2. Datamaker Musik 


Dokumentation: 
Zeilen 100-210 Laden des Liedes vonD. 
Zeilen 220-320 Schreiben der Noten mit Tondauer 


la=8: rem (lautstaerke) - 


in den Speicher DEC 4100-6100 


Eingabe der ersten Zeilennnummer 


der Data und Schrittweite. (Diese 
Daten werden in Zeile 370 als Ar- 


beitsdatazeile übernommen.) 


zeilen. 


Umwandeln der Lieddaten in Data- 


Anmerkungen mit kurzem Pro- 


gramm zum Abspielen der Melodie 


mit Ausstiegmöglichkeit. 


Pausen erscheinen in den Data mit Notenwert O und 
Tondauer größer als 96. 
Nachdem die Datas geschrieben sind, DELETE — 710 
eingeben, dann stehen nur noch die Datazeilen im 
Speicher. 
Bitte beachten, daß der Grafikmodus eingeschaltet ist 
und der BASIC-Anfang bei Hex $4000 liegt. 


EEE Erreger T\PS & TRICKS = 


Die Schildkröte in deutsch 


Der Igel ist ein kyberneti- 
sches Tier, das auf dem 
Bildschirm lebt und Befeh- 
le ausführt, die ihn zum 
Laufen (vorwärts oder 
rückwärts) oder zum Dre- 
hen um die eigene Achse 
rechts oder links) veran- 
lassen. Bei der Bewegung 
zeichnet der Igel seine 
Spur auf den Bildschirm. 
Er kann also dazu 
benutzt werden, Zeich- 
nungen darauf zu erzeu- 
gen. 

Igelprogramme werden 
gebildet durch Zusam- 
menfassen von Grundbe- 
fehlen zu sogenannten 
Prozeduren; diese Pro- 
sramme können wieder 
ın anderen Prozeduren 
verwendet werden, so daß 
schrittweise bis zu einem 
beliebigen Grad an Kom- 
plexität aufgebaut werden 
kann. Jeder einzelne 
Schritt kann aus einem 
Grundbefehl oder aus ei- 
ner vom Benutzer ent- 
wickelten Prozedur be- 
stehen. 

Alle Prozeduren, ob als 
Grundbefehl vorhanden 
oder vom Benutzer defi- 
niert, können ausgeführt 
werden, indem ihre Na- 
men einfach mit der Ta- 
statur eingegeben wer- 
den. Der im Programm 
integrierte Editor macht 
es leicht, Prozeduren zu 
definieren, zu verändern 
und ausfzuführen. 


PROGRAMMSTART 


Etwas Geduld ist nach 
dem Programmstart erfor- 
derlich, bis die Datazei- 
len der Maschinenrouti- 
ne eingelesen sind. Alle 
für das Hauptprogramm 
später nicht mehr benö- 
tigten BASIC-Zeilen wer- 
den durch eine Maschi- 
nenroutine gelöscht. 

Das schafft Platz im 
Speicher. 


HARDWARE 


@ Computer Plus/4 oder 
C16/116 mit 64 K- 
Byte. 

® Floppy. 


Ein ganz besonderer Leckerbissen ist das 
Programm Igel-Grafik, eine Programmiersprache zur 


Erstellung von Grafiken. 


wiederhole 100 laenge+ 1 
poly 
db 
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& Drucker Epson-kompa- 
tibel'für den Ausdruck 
von Grafiken; für den 
Ausdruck von Prozedu- 
ren reicht auch ein an- 
derer Drucker. Durch 
Benützung einer geeig- 
neten Hardcopy-Routi- 
ne können die Grafiken 
aber auch mit jedem 
sonstigen Drucker zu 

: Papier gebracht werden. 

Auch wer nur eine Data- 

sette besitzt, kann mit 

der Igel-Grafik experi- 
mentieren, Allerdings sind 
die Möglichkeiten sehr 
beschränkt, wenn auf das 

Laden und Speichern von 

Prozeduren und Bildern 

verzichtet werden muß. 


BEFEHLSLISTE IM 
DIREKTMODUS 


Funktionstasten 

F1 voller Grafikbild- 
schirm; 

F2 neun Zeilen Text; 

F3 fünf Zeilen Text; 

F5 Neustart Igelprogramm; 

F8 voller Textbildschirm. 

Die Funktionstasten Fl, 

F2, F3 und F8 sind inter- 

ruptprogrammiert. Daher 

ist ihre Bedienung jeder- 

zeit im laufenden Pro- 

gramm möglich. 


Grundbefehle 

ade 

Alle in das Programm auf- 
genommenen Prozeduren 
werden gelöscht. Hierzu 
muß das Programm 
DELETE auf der Disket- 
te vorhanden sein. 


basic 

Prozeduren werden im 
BASIC-Editor gezeigt. Zu 
sehen ist nicht die einge- 
gebene Form, sondern wie 
diese in BASIC übersetzt 
wurde. Editieren ist mög- 
lich. 


zeige.titel (zt) 

Alle Namen der aufge- 
nommenen Prozeduren 
werden gelistet. 


versteckigel (vi) 
Der als Dreieck auf dem 
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Bildschirm sichtbare Igel 
wird unsichtbar. 
Programme können da- 
durch schneller abgearbei- 
tet werden. 


zeigigel 

Der unsichtbar gemachte 
Igel wird wieder sicht- 
bar. 


igeltext Ri 

er danach eingegebene 
Text wird auf den Gra- 
fikbildschirm ausgege- 
ben. Folgt dem Befehl 
igeltext der Parameter 1, 
so wird der auszugeben- 
de Text revers darge- 


. stellt. 


wiederhole (wh) <Anzahl> inhalt (ih) 
Durch diesen Befehl, dem Das Disketten-Directory 
eine Zahl nachfolgen muß, wird aufgelistet. 


wird die Anzahl der Wie- 
derholungen bestimmt. 


fuelle 

Eine geschlossene Fläche, 
innerhalb derer sich der 
Igel befindet, wird mit 
der Zeichenfarbe gefüllt. 


A. Befehlsliste 


warte <zahl> 
stifthoch (sh) 
stiftab (sa) 
zeigigel (zi) 
versteckigel (vi) 


Programmverzögerung 


wie Direktmodus 
wie Direktmodus 


zufallszahl-1 (zz-I) <Bereich> zufällige Igelschrittlänge erzeugen 
zufallszahl—w (zz-w)<Bereich>zufälligen Igeldrehwinkel erzeugen 


aufkurs (ak) 

igeltext 

fuelle 

Is 

vorwaerts (vw) <Länge> 
rueckwaerts (rw) <Länge> 
links (li) <Winkeb> 

rechts (re) <Winkel> 
stop.wenn.winkel> (sww>) 
stop.wenn.winkel< (sww<) 
stop.wenn.winkel= (sww=) 
stop.wenn.laenge> (swi>) 
stop.wenn.laenge< (sw\<) 
stop.wenn.laenge= (swI=) 
var.laenge+ 

var.laenge* 

var.winkel+ 

var.winkel* 

winkelt . 

winkel* 

laenge+ 

laengex 

wiederhole <Anzahl> 


ende.wiederhole 
mitte 
loeschebild 
pause 


laenge= <Zah> 
winkel= <Winkel> 
aufx <Koordinate> 
aufy <Koordinate> 
radiere ' 
farbe <Nummer> 
luminanz <Zahl> 
rahmen <Zah> 
ende <Zahb> 


wie Direktmodus 

wie Direktmodus 

wie Direktmodus 

Textschirm löschen, Prozedureneingabe 
wie Direktmodus 

wie Direktmodus 

wie Direktmodus 

wie Direktmodus 

Abbruchbedingung 

Abbruchbedingung 

Abbruchbedingung 

Abbruchbedingung 

Abbruchbedingung 

Abbruchbedingung 

Länge Igelschritt variabel wählen 

Länge Igelschritt variabel wählen 
Drehwinkel Igel variabel wählen 
Drehwinkel Igel variabel wählen 
Winkelzuwachs wählen 

Winkelzuwachs wählen 

Längenzuwachs wählen 

Längenzuwachs wählen 

Anzahl der Wiederholungen bestimmen. 
Ist keine Anzahl angegeben, so wird diese 
vor dem Prozeduraufruf bestimmt. 
Schleifenabschluß 
Igel geht zur Mitte und hinterläßt eine Spur 
wie Direktmodus 
Programmunterbrechung. Fertsetzung auf 
Tastendruck 

Schrittlänge setzen 

Drehwinkel setzen 

Igel auf X-Position setzen 

Igel auf Y-Position setzen 

Igel löscht Spur, die er überfährt 
Spurfarbe wählen 

wie Direktmodus 

wie Direktmodus 

Prozedurennummer wählen 


vorwaertssh (vwsh) 
<Länge> 
Vorwärts ohne Spur. 


rueckwaertssh (rwsh) 
<Länge> 
Rückwärts ohne Spur. 


Is 
Textbildschirm wird ge- 
löscht. 


rueckwaerts Be <Länge> 
(selbsterklärend 


vorwaerts (vw) <Länge> 
(selbsterklärend) 


rechts (re) <Winkel> 
(selbsterklärend) 


links (li) <Winkel> 
(selbsterklärend) 


invert i) 
Grafikbildschirm wird ' 
invertiert. 


xko 
Ausgabe der X-Koordi- 
nate der Igelposition. 


yko 
Ausgabe der Y-Koordina- 
te der Igelposition. 


schiebbild 
<Schirmnummer> 
Verschieben eines Bildes 
nach Schirm zwei oder 
drei (insgesamt drei Gra- 
fikbildschirme). 


holbild 
<Schirmnummer> 
Holen eines Bildes von 
Schirm zwei oder drei 
(Weiterbearbeitung mög- 
lich). 


zeigbild 
<Schirmnummer> 
Bild zeigen auf Schirm 
eins, zwei oder drei. 


winkel= <Größe> 
Winkelgröße setzen. 


winkel+ <Zuwachs> 
Zuwachs für den Winkel 
setzen. 


laenge+t <Zuwachs> 
Zuwachs für die Länge 
setzen. 


I  n — — Ma 


dere 
«el löschen. 


sminanz (lu) <Größe> 
"zrbhelligkeit setzen. 


ırbe <Code> 
Zzichenfarbe wählen. 


-hmen <Code> 
*ahmenfarbe wählen. 


zufxy 

x-und Y-Koordinaten für 
zelposition setzen. Der 
2echner fragt anschlie- 
send nach den Koordina- 
“enwerten. Es ändert sich 
nur die Position, nicht 
aber der Kurs des Igels. 


kurs 
Ausgabe des Igelkurses 
Winkel O bis 360). 


aufkurs (ak) <Winkel> 
Igelkurs setzen. 


vergiss (vg) 
<Prozedurnummer> 
Prozedur aus dem Ar- 
beitsspeicher löschen. 


loeschefile <Name> 
File auf Diskette löschen. 


druckebild (db) 
Grafik drucken von 
Schirm eins. Nur mit 
Epson-kompatiblem 
Drucker möglich. 


druckerein 
Protokoll ein. Mit jedem 
Drucker möglich. 


druckeraus (dra) 
Protokoll aus. 


ladebild [1] <Name> 
Grafik von Diskette laden. 
Folgt dem Befehl der Pa- 
rameter 1, so werden nur 
33 Blocks für die reine 
Bildinformation geladen. 
Wird der Parameter 1 weg- 
gelassen, so werden 41 
Blocks geladen, die auch 
die Farbinformation ent- 
halten. 


bewahrebild [1] <Name> 
Grafik auf Diskette spei- 
chern. (33 Blocks bei Pa- 
rameter 1, sonst 41 
Blocks.) 


lade <name> 
Prozeduren laden (Paket). 


Die Prozeduren müssen 
bereits in BASIC über- 
setzt vorliegen. 


bewahre <name> 
Prozeduren auf Diskette 
sichern. Alle im Arbeits- 


speicher vorliegenden Pro- | 


zeduren werden als Pro- 
zedurenpaket gespeichert 
und können zu einem 
späteren Zeitpunkt mit 
dem Lade-Befehl wieder 
eingeladen werden. 


loeschebild (lb) 
Grafikbildschirm löschen. 
Die Igelposition bleibt 
erhalten. 


mitte 
Igel in Bildschirmmitte 
setzen (ohne Spur). 


bild 
Grafikbildschirm löschen 
(Igel in Bildschirmmitte). 


edit 
Übergang in den Proze- 
duren-Editor. 


ende 
Programmabbruch. 


1. Im Direktmodus edit 
eingeben 


2. Prozedurnamen 
wählen <RETURN> 
<ESC>-Taste bei Redi- 
gierwunsch bereits erstell- 
ter und auf Diskette ge- 
speicherter Prozeduren, 
sonst <RETURN>. 
Prozeduren werden als se- 
quentielle Files gespei- 
chert und müssen in den 
Prozedurenspeicher, wie 
weiter unten beschrieben, 
eingelesen werden. Im Un- 
terschied dazu werden 
Prozedurenpakete, die aus 
einer Vielzahl fertig ein- 
gespeicherter Prozeduren 
bestehen, durch den Be- 
fehl „lade“ aus dem Di- 
rektmodus heraus gela- 
den und mit ‚„‚bewahre“ 
gesichert. 


3. Befehle eingeben 

@® Ein Befehl pro Zeile. 

@ Befehl und Parameter- 
zahl immer durch ein 
Leerzeichen trennen, 
sonst erfolgt Fehler- 
meldung. 

® Maximal neun Zeilen 


sind möglich, sonst er- 
folgt Fehlermeldung. 

© Beliebiges Umherwan- 
dern und Verändern 
der Eingabe am Bild- 
schirm ist möglich. 

© Einfügen von Prozedu- 
renzeilen mit <ESC> 
+<i>, löschen von Pro- 
grammzeilen mit 
<ESC>4+<d> 


4. ende <Prozeduren- 

nummer> eingeben (zum 

Beispiel ende 24) 

® Verschiedene Prozedu- 
ren müssen verschiede- 
ne Nummern haben, 
im Zweifelsfall durch 
zt im Direktmodus 
Nummern feststellen. 
Bei Nummerngleichheit 
wird das alte Programm 
überschrieben. 

@ Mit <RETURN> 
Menü aufrufen. 


5. Menü 
<CONTROL>+ 
<r> — Redigieren — 
unbedingt nötig, falls 
Prozedur nicht mit 
<CONTROL> + <b> 
abgespeichert wird. 
<b> — Sichern — 
Prozedur wird als se- 
quentielles File auf 
Diskette gesichert. 
Der Prozedurname 
wird übernommen, 
ein File des gleichen 
Namens überschrie- 
ben. 
— Einlesen — 
Prozedur wird in 
BASIC übersetzt und 
in den Prozeduren- 
speicher übernom- 
men. Sie kann da- 
nach im Direktmodus 
zusammen mit weite- 
ren Prozeduren als 
Prozedurenpaket ab- 
gespeichert werden. 
<d> — Drucken — 
Prozedur wird auf 
den Drucker ausge- 
ı geben. 
<p> — Plotten — 
Prozedur wird auf 
den Plotter VC 1520 
ausgegeben. 
<g> — Abbruch — 
Ausstieg aus dem 
Editor und Rückkehr 
in den Direktmodus. 


Nach <CONTROL> 


+<c> und der Lernmel- 
dung des Rechners kann 


SCH 


die neue Prozedur mit ih- 
rem Namen (und mit ei- 
ner Längenangabe, falls 
die Länge variabel ge- 
wählt wurde) aufgerufen 
werden. Mit der STOP- 
Taste kann jederzeit un- 
terbrochen werden. 


6. Drei Möglichkeiten, 

den Editor zu verlassen: 

a) vor Eingabe des Proze- 
durnamens: zweimal 
<RETURNJ> betät- 


. tigen; 

b) während des Schrei- 
bens der Prozedur: 

Is eingeben und zwei- 
mal <RETURN> 
drücken; 

c) während des Schrei- 
bens der Prozedur: 
„ende“ eingeben und 
<CONTROL> +<c> 
betätigen. 


TIPS ZU IGEL 


1. Sollten Sie nach dem 
Befehl ‚‚lade‘‘ einmal ein 
Prozedurenpaket einlesen 
wollen, das sich nicht auf 
der eingelegten Diskette 
befindet, so werden Sie 
aus dem Programm hin- 
auskatapultiert. Legen 
Sie dann die Diskette ein, 
auf der das File „‚delete‘“ 
gespeichert ist und betä- 
tigen Sie die Funktions- 
taste F5. 

2. Hindern Sie den Igel 
daran, eine Prozedur zu 
Ende zu bringen (mit der 
<STOP>-Taste jederzeit 
möglich), so ist manch- 
mal ein zweimaliges Be- 
fehlen von „bild“ nötig, 
um den Igel in die Aus- 
gangsposition zu bringen. 
3. Es ist nicht möglich, 
alle Fähigkeiten von 

Igel zu demonstrieren. 
Eigenes Experimentieren 
ist erwünscht und wird 
den Anwender bald per- 
fekt machen. Außerdem 
muß man sich intensiv 
mit jedem Befehl be- 
schäftigen. 

4. Beim Sichern von Pro- 
zedurenpaketen emp- 
fiehlt sich die Kennung 
„.pkt‘‘, damit keine Ver- 
wechslungen stattfinden. 
5. Wählen Sie das Pro- 
grammpaket ‚„demo.pkt“ 


DO 


« 
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18 rem igel==>===-================p4 
28 rem (p) commodore welt team 

30 rem ==========================5 
40 rem (c) by k.-d. mueller 

58 rem 

68 rem basic v3.5 

78 rem plus4 (ci6/1i6 + 64 kb) 

88 rem disk + drucker [epson-komp. 
98 rem =============2====2=======2=== 
188 graphic1,1:pcoke55,8:poke56, 168 
:clr:graphicd:gosub2298 

118 gosub61839:5ys4795 

128 poke4796,112:poke4888,23:poke 
4807,252:poke4811,83:5ys4293:sys46 
39:run 1528 

121 run1528 

138 ed=1:iffa=dthengosub139B:retur 
n 

148 dowhileb>32849:b=b-32848: loop: 
return 

158 x=rdot(B) :y=rdot( 1) :sys59559:b 
0x1,8,8,319,199:locate x,y: return 
168 open 1,8,15:input#1,f,fF$:iff<> 
@thenprint:printf$:forf=1t01888:ne 
xt:close1:run2858 

178 closel:return 

188 printchr$( 147) 

198 gosub2298:i=3:printrn$he$c4$"P 
rozedurname"rf$; :inputc$ 

208 poke 285, 1:print:poke282,28:pr 
intrn$fl$"<esc> zum Laden!!! "rf$F 
0$; 

218 getkeyv$:ifv$=chr$( 27) thensys4 
477,""+c$,3872,8,8:gosub16@:printh 
e$c4$c4$c4$:g0t0238 

228 poke285, 1:print:poke282,28:pri 
ntb$b5$b4$he$c4$e4$cA$"pr "+tc$:ifc 
$=""thenrun 1528 

238 dimle${ 28) :dimwi${( 28) :dimw$l 29 
J) :n=2:sn$="draw m to” 

248 tu$=":g05138”:ko$=":g05140” 
258 va$="=c:":vc$="c=":gosub329 
268 va$="=2:":vc$=":2=":gosub328 
278 va$="=iw:”:vc$=":iw=":gosub328 
288 va$="=21:":vc$=":z1=":gosub328 
298 va$="=r:":vc$=":r=":gosub32B 
388 va$="=zw":vc$=":zw=":gosub328 
318 forla=1t06:bh$=bh$+bh$l la) :br$ 
=br$+br$( la) :next:goto368 

328 la=la+t1:s3=int{rnd{ 9) *25) +65:s 
4=int( rnd( 9) *9) 

338 bw$( la) =chr$( s3) +str$( s4) 

348 bh$( la) =bw$( la) +va$:br$( la)=ve 
$+bw$( la) 

358 return 

368 w$li)=str$(i)+bh$:i=i+1:n=n+1 
378 trap2879:do:gosub1449:gosub599 
12) 


<bp> 
<ho> 
<ng> 
<ig> 
<pd> 
<od> 
<cd> 
<mn> 
<jg> 


<he> 
<kf> 
<bn> 
<lc> 
<gn> 
<eo> 
<ol> 
<je> 
<hc> 


<on> 


<mh> 


<kc> 


<hh> 


388 ifa$="warte"thenwi$(i)="for v= 
I to”+str$(a) +tu$+":next”:goto84B 
398 ifa$="stifthoch"or a$="sh"then 
w1$(i)="rem**pu**":sn$="locate”:e$ 
=a$:goto840 

408 ifa$="stiftab"ora$="sa”thenw1$ 
(i)="rem#*pd**":sn$="draw m to":e$ 
=3$:g0t0848 

418 ifa$="zi"ora$="zeigigel"thenwi 
$li)="fa=ß:ed=d":goto848 

428 ifa$="zufallszahl-1"ora$="zz-1 
"thenw1$( i)="c=int( rnd( 1) #"+str$(a 
)+")+1":g0oto848 

438 ifaf="zufallszahl-w"ora$=e"zz-w 
“then wi1$(li)="iw=sint(rnd( 1) #"+str$ 
(a)+")+1":goto 848 

448 ifa$="aufkurs"ora$="ak"thenwi$ 
(i)="b="+str$(a) :goto84B8:elseifa$= 
"G”"thenrun 1528 

450 ifa$="vi"ora$="versteckigel"th 
enw1$(i)="fa=1":goto848 

468 ifa$=-"igeltext"thengosub 1368: 
goto848 

478 ifa$="fuelle”thenw1$(li)="locat 
e4;5:paint,rdot(B) ,‚rdot( 1)":goto84 
(7) 

488 ifa$="invert”"ora$="i"thenwi$fli 
)="m=-(m=B) :sys 4388”":goto 8489 
498 ifa$="1l1s"thenrun 188 

588 ifa$="vorwaerts”ora$="vw"thenw 
1$li)=sn$+str$( a) +f$+";b"+tu$:goto 
848 

518 ifa$="rueckwaerts"ora$="rw"the 
nw1$(i)=sn$+"-("+str$(la)+f$+") ;b"+ 
tu$:goto84B 

528 ifa$="stop.wenn.winkel="ora$=" 
sww="thenw1$(i)=":do until iw="+st 
r$( a) :goto848 

538 ifa$="stop.wenn.winkel>"ora$=" 
sww>"thenwi$(i)=":do until iw>"+st 
r$(a) :goto848 

548 ifa$="stop.wenn.winkel<"ora$=" 
sww<"thenw1$(i)=":do until iw<”+st 
r$(a) :goto848 

558 ifa$=-"winkel="thenwi$[i)="iw=" 
+str$(a):goto 848 

568 ifa$=-"var.winkel+"thenwi$[li)=" 
:":iw$="+iw":goto848 

578 ifa$=-"var.winkel*"thenw1$[li) =" 
:":iw$="*iw"”:goto848 

588 ifa$=-"rechts"ora$="re”thenwi$( 
i)="w="+str$la) +tiw$+":b=b+w"+ko$+t 
u$:goto848 

598 ifa$="links"ora$="li"thenwi$li 
)="w=368-( "+str$( a) +tiw$+") :b=b+w”+ 
ko$+tu$:goto848 

688 ifa$="winkel+"thenwi$[( i)="iwsi 
w+"+str$la) +"+zw":goto84@ 


<ee> 


<nk> 


<hm> 


<km> 


<jk> 


<no> 


<nm> 
<nk> 


<ah> 


<ho> 


<cm> 
<jj> 


<dc> 


<oj? 


<mj? 


<aa> 


<bn> 
<oi> 
<fa> 


<mb> 


<le> 


ne & 


ee 


zs sa u mau MA 
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518 ifa$="winkel®"thenwi$li)="iw-i 
“*("+str$(a) +"+zw)":gotoB48 

528 ifa$="wiederhole"ora$="wh"”then 
“1$(i1)="si=r:s2=z:z=8:r="+str$(o) + 
"+vr:do":goto848 

538 ifa$="stop.wenn.laenge="ora$=" 
sw1l="thenw1$( i}=":do until c="+str 
$(a} :goto84B 

648 ifa$="stop.wenn.laenge>"ora$=" 
sw1>"thenw1$(i)=":do until c>"+str 
$(a) :goto848 

658 ifa$="stop.wenn.laenge<"ora$=" 
swl<"thenw1$(i)=":do until c<"+str 
$(2) :goto848 

668 if a$="ende.wiederhole"ora$="e 
ndwh”then 1878 

678 ifa$=c$thenwi$li)="loop"”:gotoß 
48 

688 ifa$="laenge+"thenwi$l i)="c=c+ 
"+str$(la)+"+z1":gotoB4 

698 ifa$="laenge*"thenwi$[li)="c=c* 
("+str$(a)+"+z1l)":goto848 

788 ifa$="var.laenge+"thenw1$(i)=" 
:":f$="+c":goto848 

718 ifa$="var.laenge*"thenwi$li)=" 
:":f$="*c":goto8B4B 

728 if a$=-"mitte”thenwi$(i)=sn$+"”1 
69, 180:b=B:w=A":gotoB4R 

738 ifa$="loeschebild"”ora$="1b"the 
nw1$(i)="goS158” :gato848 

748 ifa$="pause”thenwi$(i)="getkey 
x$":g0t0848 

758 ifsa$="laenge="thenwi1$( i}="c="+ 
str$( a) :goto848 

768 ifa$="aufx”"thenwi1$(i)=sn$+"” 168 

+"+str$(la)+",rdot( 1) "+tu$:goto848 
770 ifa$="aufy”then wi$[i)=sn$+"” r 

dot(®8) , 188-"+str$( a) +tu$:goto848 

788 ifa$="radiere”thenwi$[ i) ="m>B” 
:goto848 

798 ifa$="farbe"thenwi$( i)="m=1:co 
lor1,"+str$(a)+",1u”:goto848 

8988 ifa$="rahmen"thenw1$(i)="colo"” 

+23$+"4,"+str$(la)+",1u”":goto848 
818 ifa$="luminanz"ora$="1lu”thenwi 

$li)="lu="+str$(a) :goto848 

828 ifa$="ende”theni=iti:n=n+1:got 

o 1238 

830 gosub12AB:gotoB5B 

848 w$li)=str$(i)+wi$(li) :isiti:n=n 
+1 

858 loop 

868 printcl$:sys4948 

878 ifa<=Bora>5Bthen2858 

888 kK=a:3=19B08+[ k-1) *28:d=a-4B0B: 

e=a-3088 

898 iffl=-8thengoto938 

988 printc4$c4$"delete”d:printc4$c 


<ok> 


<om> 


4$”"delete"e:printc4$c4$"delete”d+1 
4808 

918 printc4$c4$"delete"a”-"a+19:pr 
intc4$c4$"rU1528":printhe$ 

928 poke 239,5:fori=®t04:poke1319+ 
i,13:next:end 

938 fori=3ton-1:printstr$( a+i-3) +m 
id$(w$li),-(i>9)+3,l1en(w$(i))) :nex 
t 

948 printstr$(a-3+n) +br$+”:reT:rem 
RrT+ch+"r" 

958 printstr$(e)+"ifa$="+chr$( 34) + 
c$+chr$( 34) +"thEc=a:goS"+str$(a) +" 
:w$(i)=str$li)+"”; 

968 printchr$( 34) +"gosub"+str$(a)+ 
chr$( 34) +":i=i+1:goto2129” 

978 printstr$(d) "ifa$="chr$( 34) c$c 
hr$( 34) "thEw1$[ i)="chr$( 34)": er S 
tr$(a)chr$( 34); 

988 print":g084B” 

998 print"1058 df$="chr$( 34) c$chr$ 
(34) 

1808 printstr$( d+14888)":"kK"."b2$c 
$:print"”goto1948” 

1B1B if peek( 285) <23then 138 

1028 sys4949:printel$left$(lqr$,5)1 
eft$(gqd$,7)rn$"zu viele Zeilen!!!" 
:getkeyze$:goto295® 

1038 poke1319, 19:poke1328,17:fori= 
1ton+3:poke1326+i, 13:next:poke239, 
n+S:end 

1840 gosub2290:printcl$:sys4949 
1858 df$="chaos" 

1868 printleft$(qr$,4)left$(qgd$,4) 
rn$df$rf$b3$"gelernt":fori=1t068B: 
next:run 1528 

1878 wi$li)=+"z=z+1:10Q0uNz>=r:r=si 
:z=s2":goto848 

10888 printrn$"x"rf$; :inputx3:print 
rn$"y"rf$; :inputy3 

1898 printrn$"sa (8) oder sh (1)"r 
f$; :inputpu 

1188 ifx3=1111thenx3=rdot(B) :elsex 
3=168+x3 

1118 ify3=1111theny3=rdat( 1) :elsey 
3=100-y3 


<de> 


<co> 


<ce> 


<mf> 


<ng?> 


<in> 
<ng> 
<ke> 
<no> 
<ea> 
<mn> 


<nf> 


<hb> 


1128 ifputhenlocatex3, y3:elsedrawm 


tox3,y3 

1138 goto 2128 

1140 : 

1158 p%=bl 

1168 ifa=ßthenscratch""+c$:sys4462 
‚""+c$,3072,b1#40+3072,a 

1178 ifa=söthenfory=®tobl:poke1319+ 
y,13:next:poke239,bl:run 198 

1188 if a=4thenpoke 4999,7:p%=p%-3 
:5ys4958, 12,4,15,p%:a=s1:goto 1288 
1198 if a=6thenopen 6,6,6:print#6, 


« 
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1:p%=p%-3:poke 4999,8:sys4958, 12,6 
‚15,p%:a=s1:goto1248 

1288 iffa=@thengshapes$(b2) ,x1-5,y 
1-5,4 

1218 printc2$rn$"unbekannte Prozed 
ur"rf$; :forf=1t0188@@:next:printchr 
$(27)+"p"; 

1228 printchr$( 27) +"5j"::return 
1238 si=a:bl=peek( 285) :printchr$( 2 
246: 

1248 forzz=1t037:printzv$; :next:pr 
intzv$ 

1258 print "Ihre Wahl: <ctrl>+.... 
ee "print 

1268 printrn$"<c>: ’Lernen’<g>:’Sto 
ppen’<b>: ’Sichern’"rf$:print 

1278 printrn$"<r>: Redig. ’<d>: ’Dru 
cker’<p>: ’Plotter’"rf$ 

1280 getkeyct$:pi=asc(ct$) 

1298 ifpi=3thengoto868 

13988 ifpi=?thenrun!529 

1318 ifp1i=2thena=8:g0t01148 

1328 ifp1=4thena=4:g0t01148 

1338 ifpi=16thena=6:g0t01148 

1348 ifp1i=18thenfory=®tobl:poke131 
9+y,13:next:poke239,b1l:run198 

1358 goto 1258 

1368 inputz$:wi$(i)="char,rdot(®)/ 
8+1,rdot( 1)/8,"+chr$( 34) +z$+chr$( 3 
4)+","+str$(a) 

1378 return 

1380 graphichk ‚8:sys5376: return 
1398 x1=rdot[®) :yi=rdot( 1) 

14008 ifb>=36ß8thenb=b-368:g0oto1488 
1418 b2=int(b/1B) :gshapes$(b2) ‚x1- 
5,y1-5,4 

1428 ifed=Ithened=#:gshapes$(b2) ‚x 
1-5,y1-5,4:locatex1,y1 

1438 return 

1448 poke 19, 1:inputa$:poke19,8 
1458 le=1:me$=a$ 

1468 if le>2@ thena$=me$:a=@:gotol 
498:elsele$( le)=mid$(a$,1le, 1) 

1478 ifle$(le)<>" "then le=le+1:go 
to1468 

1480 ail$=right$(a$,len(a$)-le) :a=v 
alla1$) :a$=1left$(a$,(le-1)) 

1498 print:if dz=®thenreturn 

15090 ifa=ßthenprintf#3,a$:return 
1518 ifa<>Athenprint#3,a$;a:return 
1528 graphic2, 1 

1530 boxB,8,8,319,199:dims$( 36) :sy 
s4948: fornr=#to36@step1@:circle1l,5 
,9;4,8; ;;nr,120 

1540 gosub2298:sshapes$(nr/18) ,8,8 
‚18,10:5ys4922:next:n=3:5=3:b=®:m= 
1 

1558 dimw$( 38) :dimle$( 28) :trap2178 


1560 box 1,8,0,319,199:x1=168:y1=1 
8:locatexi,yl:gshapes$(b2) ‚x1-5,y 
1-5,4:5ys 4949 

1578 do:gosub 1448: iffa=@thengshape 
s$(b2) ‚,x1-5,y1-5,4:locate x1,y1 
1588 printbk$; :gosub6998 

1598 ifa$="ade"thensys4795:sys4668 
:clr:pn$="delete":goto2228 

1608 if a$="basic"thengraphicd:got 
02888:elseifa$="ende"thengraphicß: 
end 

1618 if a$="zeige.titel"ora$="zt"t 
henpoke 22,35:1list 19999-:poke22,2 
5:g0t02128 

1628 ifa$="versteckigel"ora$="vi"t 
hen:fa=1:goto2128 - 
1638 ifa$="zeigigel”ora$="zi"thenf 
a=B:ed=B:goto2128 

1640 if a$<>"igeltext"then 1668 
1658 printrn$+"Text"+rf$; :inputz$: 
char, rdot( 8} /B+1,rdot( 1)/8,z$,a:go 
Eo2128 

1668 ifa$="wiederhole”or a$="wh"th 
envr=3a:g0t02128 

1678 if a$="fuelle"thenlocate 4;5: 
peint,rdot(8) ,‚rdot( 1) :goto 2128 
1688 ifnot( a$="inhalt"ora$="ih")th 
en 1788 

1698 graphicß:printcl$:directory:g 
etkeyw$:printcel$:graphic2,8:poke28 
5,19:print:goto2128 

1700 ifa$="vorwaertssh"ora$="vwsh" 
then locate a;b:goto2128 

1718 ifa$="rueckwaertssh"ora$="rws 
h"thenlocate-a;b:goto2128 

1728 if a$="1s"thenprintcl$:poke24 
5,19:print:goto 2128 

1738 ifa$="rueckwaerts”"ora$="rw"th 
endrawmto-a;b:goto2128 

1748 ifa$="vorwaerts"ora$="vw"then 
drawmtoa;b:goto2128 

1758 ifa$="rechts"ora$="re”"thenw=a 
:b=b+w:goto2128 

1768 ifa$="links"ora$="1i1"thenw=36 
8-a:b=b+w:goto2128 

1778 if a$="invert"ors$="i"then m= 
-(m=B) :sys 4388:goto 2128 

1788 ifa$="xko"thengosub2169:print 
b5$b4$c2$x1-168:goto 2128 

1790 ifa$="yko"thengosub?2 168: print 
b5$b4$c2$18M-yi:goto 2129 

1888 ifa$="schiebbild"thenifa>ithe 
nifa<4theng=8192*( a+3) :sys(5616)q, 
32:goto 2128 

1818 ifa$="holbild"thenifa>ithenif 
a<ätheng=8192*( +3) :sys(5651)q,32: 
goto 2128 

1828 ifa$="zeigbild”thenifa>@theni 


<op> 


<fd> 
<oh> 


<ki> 


<dh> 


<a0> 
<mm> 
<ah> 
<ef> 
zeb> 
<fn> 
<ob> 


<ak> 


<mg> 
<fc> 
<nm> 
<li> 
<hd> 
<ej? 
<jf> 
<og> 
<mg> 
<ki> 


<nj?> 


<ie> 


<ao> 


“=<4theng=8*( a+3) +( a=1) #24: poke652 
= ,qg:goto2128 

=38 if a$="winkel=" 
» 2128 

28 ifa$="winkel+"thenzw=a:goto21 
#:elseifa$="laenge+"thenzl=a:goto 
>28 

58 ifa$="radiere"thenm=®B:g0t0212 
’ 

558 ifa$="luminanz"ora$="lu"thenl 
=3:g0t02128 

578 ifa$="farbe"then m=1:colori,a 
lu:printbk$; :goto2128 

588 ifa$="rahmen"thencolor4,a,lu: 
z0t02128 

398 ifa$="aufxy”"then1B88 

‚328 ifa$="kurs"thengosub215@:goto 
2128:elseifa$="aufkurs”ora$="ak"th 
enb=a:g0t02128 

‚s18 ifa$="vergiss"ora$="vg"thenif 
=<>ßthenfl=1:goto86R 

‘9328 ifa$="loeschefile”theninputlif 
s:sys 4948:scratch""+1f$:5ys4949:g 
{02128 

‚9338 if a$="druckebild”ora$="db”th 
enhk=2:5ys4940:gosub1388:s5ys4949:g 
{02128 

‘948 ifa$="druckerein"”ora$="dre”th 
enopen3,4,7:dz=1:goto2128 

1958 if a$="druckeraus”ora$="dra”t 
hendz=8:close3:goto2128 

1968 ifa$="ladebild”ora$="bewahreb 
ild"then goto 2248 

1978 ifa$="lade"ora$="bewahre"then 
2190:goto2128 

1988 ifnot(a$="loeschebild"ora$="1 
b")then2888 

1998 gosub2168:5ys59559:box1,8,8,3 
19,199: locatex1,y1:g0t02128 
2B8Rn ifa$="mitte"thenlocate16®B, 188 
:b=8:w=98:g0t02128 
2BiB ifa$="bild"thensys58559:b2=®: 
b=-8:box1,8,8,319,199:locate 168,18 
B:g0ot0o2128 
2828 ifa$="edit"thengraphicd:run 1 
Ba 
2838 gosub 1288 
2848 loop 
2858 color®,4:color4,4:color1i,1:tr 
ap2B58:5ys4949 
2868 run1528 
2878 hk=1:gosub1388:g0t02858 
2888 printcl$"prozedurnummer"; :inp 
utu:u1=998Q0+u*28:u2=1BBBB+u*28-1:p 
rintel$"list"ul"-"u2 
2898 poke 1319, 19:poke 1328, 13:pok 
e 239,2:end 
2188 run1528 


then iw=a:got 


<br> 


<da> 


xpk> 
<cd> 
<el> 
<dp> 
<oi> 
<gn> 
<gk> 


<do> 


<db> 


<if> 
<oe> 
<nl> 
<ei> 
<hi> 
<di> 
<em> 


<ne> 


<ch> 


<mk> 
<ga> 
<ol> 


<io> 
<bn> 
<eg> 
<In> 


<ea> 
<bc> 


103 


2118 end 

2128 iffa=dthengosub139B:elsegosub 
2168 

2138 n=n+1 

2148 loop 

2158 rb=b:dountilrb<36ß: ie rb-368: 
loop:printb$c2$rb:return 

2168 x1=rdot(B) :yi=rdot( 1) :return 
2178 iffa=@thenifed=®thengshapes$( 


b2) ‚x1-5,y1-5,4 

2150 resume 1578 

2198 ifa$="lade”thensys4795:sys466 
B:clr:a$="lade" 

2288 inputpn$:sys49348:ifa$="bewahr 
e"”thenscratch"”"+pn$ 

2218 ifa$="bewahre"thensys46572,""+ 
pn$,5998,0,2150R,8:runi528 

2229 sys4742,""+pn$,5998,8:sys4668 
:poke1319,asc( "z") :poke1328,asc("t 
"e 

2238 poke 1321,13:poke239,3:run 152 
13) 

2248 inputpi$:sys 4949 

2258 ifa$="ladebild"thensys4477,”" 
+pi1$,6144-((a=1)*2848) ,8,8:5ys4949 
:gosub 168: run 1538 

2268 sys 4462, ""+pi$,6144-((a=1)*2 
848) ‚,16384,8:sys4949:run153® 

2278 rem nachspann 
2288 rem * farbceodes/steuercodes * 
2298 c4$=chr$( 817) :rn$=chr$( 818) 
2388 he$=chr$( 819) :c3$=chr$( 829) 
2318 F1$=chr$( 138) :Fo$=chr$( 132) 
2328 bk$=chr$( 144) :c2$=chr$( 145) 
2338 rf$=chr$( 146) :c1$=chr$( 147) 
2348 rem **# zeichensatz/graphik * 
2358 z3$=chr$( 164) :zv$=chr${ 192) 
2368 rem #######3#% zeichenfolgen * 
2378 gqd$="":qr$="":forzz=1 to 48 
2388 qd$=qd$+c4$:gr$=gr$te3$ 

2398 nextzz 

2408 b$=chr$( 32) :b2$=b$+b$ 

24190 b3$=b2$+b$:b4$=b3$+b$ 

2428 b5$=b4$+b$:b$=b5$+b5$ 

2438 return 

5998 rem**neue befehle( programmmod 
us) #**# 

6989 return 

6998 rem***neue befehle (direktmod 
us) #r* 

7989 return 

19998 rem#*#*f*befehlssatz##*#* 

GEHHR datame,88,80,58,00,00,00,00, 
88 

6ABIB dataB9,08,53,00,88,00,ad,89, 
265 

68828 dataff,29,82,7f8,03,28,68,10, 
685 
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<am> 


<gh> 
<hd> 
<le> 


<ho> 
<in> 


<fm> 
<pd> 


<gm> 
<al> 


<jm> 


<gj> 


<hd> 
<pj?> 


<1n> 


<do> 
<nl> 
<lo> 
<pe> 
<ol> 
<mp> 
<cc> 
<ek> 
<fg> 
<ck> 
<hi> 
<al> 
<bj> 
<ap> 
<fk> 
<pi> 
<ob> 
<jn> 


<ba> 
<fo> 


<oc> 
<dg> 
<fl> 
<bp> 


<bm> 


<oa> 
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60038 data2c,d8,87,18,de,ad,@l,fd, 68328 data59,10,39,a4,8d,6b,10,8d, 

724 <ce> 843 <jb> 
60040 datadd,d4,07,10,06,28,95,ea, 60338 dataße,18,c9,83,d8,11,a9,79, 

797 <ok> 877 A 
60058 data2M,5b,ea,20,e4,e3,ad,Bg, BUSAB AHERDd, 59, 10,09, 70, DA,Bb, IN, 

1826 <ok> Pu u 
6AR6A dataff,29,02,78,28,8d,09,fF, 60350 dataßd,Be,10,a9,40,85,c6,4c, 

983 . <bl> 939 <al> 
60078 data2c,@b,ff,a9,cc,5Q,1b,6c, 68368 dataße, 10,11,78,49,88,85,eB, 

898 <hm> 693 <pm> 
60080 data12,83,20,bf,cf,2@,cd,ce, 60378 dataa9,20,85,e1,a8,00,b1,eß, 

894 <nm> 1128 <mp> 
60098 dataa5,fb,48,39,00,85,fb,08, 60388 data49,ff,91,e8,c8,d®,f7,e6, 

19849 <bm> 1582 <ej? 
60108 data58,28,11,db,28,68,85,fb, 68398 datae1,35,e1,c9,48,dA,ef,68, 

884 <he> 1423 <aj? 
68110 dataa9,atl,8d,@b,ff,Ac,be,fc, 6B4BB data49,29,20,91,94,20,2c,93, 

1255 <jd> 662 <nn> 
60129 dataad,1c,ff,29,91,d9,39,ad, 60410 dataa5,62,85,af,a5,63,85,bB, 

936 <kd> 1144 <if> 
69130 datald,ff,c9,a4,b@,2e,24,83, 68428 dataa5,61,85,ab,28,91,94,20, 

1838 <pc> 973 <al?> 
60148 data59,52,a9,08,8d,14,ff,ad, 684398 data14,93,20,e4,9d,84,da,85, 

928 <oh> 1067 <jf> 
60158 datag6,ff,29,df,a8,ad,87, ff, 60448 datadb,29,91,94,20,d2,9d,a9, 

1128 <pa> 1112 <mb> 
60168 data29,ef,aa,ad,12,ff,8d,fa, 60458 data@2,85,ac,86,ae,60,20,42, 

1159 <di> 889 <mp> 
60178 data07,48,ad,1d,ff,c9,a4,98, 60468 data11,85,ad,a9,da,a6,14,a4, 

1845 <mk> 1969 <ei> 
60180 dataf9,68,8d,12,ff,8c,06,ff, 68478 data15,20,d8,ff,68,20,42,11, 

1168 <el> 735 <jj> 
68198 datade,07,ff,68,c9,cc,98,24, 68488 dataa9,00,85,ad,a6,da,a4,db, 

1885 h <la> 1242 <ae> 
60200 dataa6,83,f0,20,18,88,ad,07, 68498 data20,d5,ff,68,20,42,11,89, 

773, <kl> 888 <mc> 
69218 dataff,89,19,8d,07,ff,ad,86, 60588 dataß1,85,ad,a9,08,20,d5,ff, 

862 ; <jg> 976 <ep> 
68228 dataff,89,20,84,06,ff,ad, 12, 68510 data6ß,ea,20,91,94,20,84,9d, 

889 <kj> 976 <bb> 
608238 dataff,29,fb,8d,12,ff,ad,fb, 60528 dataa9,09,a8,85,d2,85,22,86, 

1385 <ml> 981 <oj> 
68248 data07,8d,14,ff,60,78,49,18, 68538 datad3,20,91,94,20,84,9d,86, 

824 2 <ek> 991 <ge> 
60258 datn8d,13,93,8d,15,03,29,d5, 60540 data23,20,91,94,20,84,9d,ea, 

718 <oh> 915 <ıng> 
68268 datadd, 14,83,58,68,5,c6,c9, 68558 dataea,28,bB,904,91,d2,c8,d®, 

912 <1c> 1289 <ji> 
68270 data94,d®,@d,a9,86,8d,59, 18, 60568 dataf6,e6,23,e6,d3,ca,d#,ef, 

646 <hf> 1681 <1g> 
69280 dataa9,07,8d,6b,19,8d,Be,1®, 608578 data69,20,91,94,28,84,9d,e®, 

739 ri <ml> 966 <cm> 
68298 datac9,85,d8,8d,a9,81,8d,59, 60588 dataaA,de,Ba,29,91,94,20,84, 

955 <je> 787 <hp> 
60300 data1d,a9,84,8d,6b,18,Bd,Be, 60598 data9d,Be,14,ff,60,eQ,B1,d®, 

864 <fh> 1183 <mi> 
68318 data19,c9,06,d0,8d,a9,a1l,dd, 6060D datada,20,91,94,20,84,9d,Be, 

915 <ch> 798 <if> 
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2518 data12,ff,6#,40,31,94,05,2d, 68908 data1?,60,a5,57,86,60,85,24, 

964 <ca> 885 <ee? 
2628 data85,dce,a5,2e,85,dd,68,a5, - 68918 data8B6,25,28,3d,83,98,15,aB, 

1179 <1d> 727 <on> 
>2538 datadc,85,2d,85,dd,85,?2e,6®, 68928 dataß1,20,d1,804,88,50,d9,85, 

1859 <fm> 765 ze 
58649 dataa5,2b,85,e8,35,2c,85,e9, 68938 data20,d1,04,78,07,20,d1,04, 

1148 <oo> 737 <nb> 
58658 data38,35,2d,e9,02,85,2b,a5, 68948 data85,5f,86,68,a5,24,38,e5, 

842 <ee> 944 <ko> 
52668 data2e,e9,80,85,2c,68,.5,eB8, 68958 data5f,aa,a5,25,e5,68,48,bB, 

949 <pe> 1136 <gil> 
58678 data85,2b,35,e9,85,20,60,a9, 68968 data1f,8a,18,65,2d,85,2d,9B, 

1816 <kf> 669 <hp? 
586589 data2a,8d,86,03,a9,12,8d,87, 68978 data65,2e,85,2e,a8,00,28,d1, 

527 <kh> 727 <el> 
58698 data3,68,48,3d,43,05,dB,fb, 62988 datam4,91,24,c8,d#,fB,e6,6B, 

875 <dk> 1167 <hj> 
527RB data6B,A4c,6e,8b,a9,81,8d,82, 60990 'datae6,25,55,2e,c5,25,b®,ee, 

742 <ef> 1126 <eh> 
58718 data48,20,18,88,28,4c,88,6®, 61000 data?®,18,88,35,22,a6,23,18, 

596 <pa> 616 <ki> 
58729 data28,91,94,28,20,93,35,62, 61818 data69,0?,85,2d,90,01,e8,86, 

811 <id> 796 <le> 
5073@ data85,af,a5,63,85,b8,35,61, 61028 data?e,60,a6,dc,a4,dd,20,dB, 

1143 <je> 161 <np> 
69748 data85,ab,20,91,94,20,d2,9d, "61838 dataff,60,a0,00,98,99,88,28, 

1828 <an> 848 <fn> 
68758 data28,3d,83,35,5f,85,da,a5, 61048 data99,40,21,99,88,22,cB,c®, 

18897 <dn> 957 <po> 
68769 data6B,85,db,20,91,94,28,d2, 61058 data18,dB,f2,68,ad,06,ff,29, 

1815 <gb> 19845 <bh> 
68778 data9d,86,ae,29,3d,83, 18,35, 61868 dataef,8d,A6,ff,60,ad,B6,ff, 

885 <gg> 1171 <bg> 
68780 data5f,69,08,85,dc,a5,68,69, 61078 dataB9, 18,8d,86,ff,60,28,91, 

929 <je> 708 <hj> 
608798 dataB0,85,dd,a9,82,85,ac,85, 61080 data94,20,84,9d,86,23,28,91, 

963 <bn> 815 <em> 
60888 dataad,a9,da,4c,32,13,20,91, 61098 data94,20,84,9d,86,ae,28,91, 

882 <me> 954 <ak> 
6BB1B data94,28,2c,93,a5,62,85,af, 61188 data94,20,84,9d,86,d3,28,91, 

942 <ao0> 991 <el> 
68828 dataaS5,63,85,b8,a5,61,85,ab, 61110 data94,20,84,9d,86,d4,18,d8, 

1139 <kf> 1855 <nh> 
68838 data28,91,94,28,d2,9d,86,ae, 61128 dataa9,81,85,0c,85,ab,a9,87, 

1832 <nl> 955 <fm> 
60840 data2B,3d,83,85,5f,85,da,aS, 61138 data8ß5,ad,20,cd,ff,aB,08,a2, 

1897 <ha> 1187 <of> 
68850 data68,85,db,39,982,85,ac,39, 61148 dataß1,28,c9,ff,a9,8d,28,d2, 

1893 <nc> 913 <kc> 
68868 data@@,85,ad,36,da,a4,db,2®, 61158 dataff,a6,d4,30,78,98,85,22, 

1185 <gd> 1232 <jd> 
60878 datad5,ff,68,a9,78,85,14,89, 61168 dataad,80,a5,d3,28,d2,ff,28, 

1167 <oj> 1865 <go> 
68888 data17,85,15,28,3d,8a,29,fc, 61178 databA,84,29,3f,85,d8,28,bB, 

829 <jb> 833 <mp? 
60898 data85,14,39,53,85,15,20,d2, 61188 dataß4,29,48,85,d1,18,65,d1, 

881 <en> 785 <ea> 
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61198 data65,dQ,85,d®,28,b0,04,49, 61490 data18,a9,8d,28,d2,ff,ad,05, 

935 <ba> 868 <ml> 
61208 data7f,29,20,85,d1,18,65,d1, 61500 datab9,Bf,15,28,d2,ff,88,18, 

876 <ke> 398 <ac? 
61218 data65,d@,85,d2,29,b8,804,29, 61518 dataf7,a9,27,8d,5e, 15,30,80, 

985 <«in> 871 <ic> 
61228 data88,c9,88,d®,17,39,12,28, 61528 data20,95,15,35,fa,18,69,88, 

987 j <ej> 754 <bn> 
61238 datad2,ff,ea,ea,ea,ea,ea,aS, 61538 data98,82,e6,fb,85,fa,ce,Se, 

1888 <ch> 1318 <cm> 
61248 datad2,28,d2,ff,a9,92,28,d2, 61548 data15,18,eb,ca, 10,d3,60,81, 

1264 <gg> 798 <gl> 
61250 dataff,18,990,05,35,d2,20,d2, 61550 data49,04,2a,1b,09,84,48,98, 

1945 <ne> 588 <jf> 
61268 dataff,c8,c®,28,30,b1,a9,0d, 61568 data48,a9,80,8d,d2,15,a2,87, 

1894 <mo> 918 <cp> 
61278 data2@,d2,ff,18,35,22,69,28, 61570 dataaß,AB,b1,fa,2d,d2,15,38, 

865 <nh> 919 <cj> 
61288 data85,22,85,23,69,00,85,23, 61588 datad®,91,18,3e,56,15,c8,c#, 

648 <hm> 794 <li> 
61290 dataca,d@,95,39,0d,20,d2,ff, 61598 dataß8,dA,ef,4e,d2,15,ca, 18, 

1238 <dl> 982 <kg? 
613A0 data2d,cc,ff,a9,81,29,c3,ff, 61608 datae?7,a2,87,b6d,56,15,28,d2, 

1143 <bb> 938 <ia> 
61318 data6Q,ff,c4,28,49,29,aa,22, 61610 dataff,ea,ea,ea,a9,00,9d,56, 

3 <ha> 1369 <i> 
61328 fort= 4896 to 5145 stepd:p=8 <md> 61628 data15,ca,18,ef,68,a8,68,aa, 
61338 fori=8t07:reada$:a=dec( a$) :p 1924 <je> 
=p+ta:poket+ti,a:nexti <ij?> 61638 data69,BB,ea,ea,ea,ea,ea,ea, 
61348 readr:ifp=rthen61368 <fd> 1588 <ak> 
61358 print"”Pruefsummenfehler in z 61648 dataea,ea,ea,ea,ea,ea,ea,ea, 
eile”peek( 63) +peek( 64) #256:gosub61 1872 <jk> 
918:end <jn> 61658 dataea,ea,ea,ea,ea,ea,ea,ea, 
61368 next <mb> 1872 j <la> 
61378 dataea,ea,ea,ea,ea,ea,ea,ea, 61668 dataea,ea,ea,ea,ea,ea,ea,ea, 

1872 <em> 1872 <kh> 
61380 dataea,ea,ea,ea,ea,ea,ea,a2, 61678 data29,d2,9d,a0,00,98,85,d#, 

1888 j <fh> 1252 <hp> 
61398 data18,8e,68,15,39,05,48,a2, 61688 dataa9,20,85,d1,a5,14,85,d?2, 

691 or > 1971 <io> 
61480 dataß4,ea,ea,a9,09,a0,2®,85, 61698 dataa5,15,85,d3,b1,d8,91,d2, 

966 <pk> 1278 <mj> 
61418 datafa,84,fb,68,48,30,91,20, 61708 datac8,dQ,f9,e6,di1,e6,d3,ca, 

1082 j <1k> 1739 <of> 
61428 databa,ff,a9,800,28,bd,ff,28, 61710 datadA,f2,60,20,d2,9d,39,98, 

1118 <aj> 1114 <ei> 
61438 datacd,ff,68,48,aa,20,c9,ff, 61728 data85,d?,a9,20,85,d3,a5,14, 

1281 <ae> 1073 : *jn> 
61448 dataa9, 1b,20,d2,ff,a9,31,20, 61738 data85,22,45,15,85,23,ea,aß, 

943 <pm> 915 <mc> 
61459 datad2,ff,28,5f,15,a9,1b,20, 61748 data@A,b1,22,20,b9,04,91,d2, 

841 2 <ih> 778 <hi> 
61468 datad2,ff,a9,32,28,d2,ff,28, 61759 datac8,d®,f6,e6,23,e6,d3,ca, 

1213 <ea> 1562 <fm> 
61478 datacc,ff,68,4c,c3,ff,28,00, 61768 datadd,ef,68,a2,01,bd,80,0f, 

1089 <gc> 918 <id> 
61488 dataNd,08,90,90,08,88,16,a2, 61778 Fort= 5376 to 5695 step8:p=8 <bn> 

184 <ma> 61788 fori=8t07:reada$:a=dec( a$) :p 
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>+a:poket+ti,a:nexti <fe> 
1798 readr:ifp=rthen61iB1B <mm? 
1888 print"Pruefsummenfehler in z 
:ile"”peek( 63) +peek( 64) #256: gosub61 


='!8:end <po> 
=!818 next <ei> 
1828 return <gi> 
=1838 gosub 61988 <mb> 
51848 color®,4:color4,4:color1i,1:p 

rintchr$( 14) <lg> 
51858 printcl$ <ep> 
51868 fori=1to8:keyi,"”":next:keyd4, 

"run1528"+chr$( 13) <lo> 


51878 key5,"pn$="+chr$( 34) +"delete 
"+chr$( 34) +" :g0oto2228"”+chr$( 13) <fo> 
51889 gosub6BBBB:poke4796,96:pokeA 
320,234:poke4897,48:poke 4811,242 <ik> 


51898 return <pf> 
51988 poke 65286, peek( 65286) and 2 

39:return <dd> 
51918 poke 65286, peek( 65286) or 16 

:return <nl> 
61928 rem igel==================p4 <gn> 
61938 rem 68671 bytes memory <ek> 
61948 rem 15987 bytes programm <an> 
61958 rem (im urzustand) <1ln> 
61968 rem <ie> 
61978 rem achtung !!! <on> 
61988 rem programm darf nicht <mj?> 
61998 rem umnummeriert werden <ji> 
62808 rem ======================== cmo> 
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5998 rem *neue befehle (programmmo 

dus) # <dm> 
6989 return <fo> 
6998 rem *neue befehle (direktmodu 

s)* <pe> 
7989 return <dg> 
19998 #*##tbefehlssatz#t#t#tr* <kn> 


((BU:)) Programm DELETE fuer IGEL-Grafik 
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5998 rem demo.pkt============-===p4 
68B8 ifa$="quadrat"tihenw$li)=str$( 
i)+":goS 10084” :gotoB4d 

6029 ifa$="kiste5S”"thenw$(i)=str$li 
)+"”:g05 19828” :goto8B48 

6648 ifa$=-"sternS"thenw$li)=str$li 
)+"”:goS 18848" :g0to848 

6B6B ifa$=-"dreieck"thenw$li)=str$l 
i)+”:goS 10868” :goto848 

6088 ifa$="drehquadrat”thenw$[li)=s 


tr$li)+":goS 108088” :gotoB4 
8 

6188 ifag=-"mitte"thenw$li)=str$(i) 
+”":g05 18189" :goto8B48 

6128 ifa$="demodrehquadrat”thenw$l 
i)=str$(i)+":goS 18128” :goto84 
8 

6148 ifa$="stern”"thenw$(i)=str$(i) 
+”:g0S 18149” :goto848 

6168 ifa$="demostern”thenw$l i)=str 
$li)+":goS 18168” :goto84 
8 


6188 ifa$="stern2"thenw$(i)=str$li 
)+":go5 18188” :goto848 
6288 ifa$="demostern2"thenw$li)=st 


r$(i)+":goS 18200” :goto8B4 
8 
6228 ifa$="rechteck1-5"thenw$(i)=s 
tr$(i)+":goS 18228” :goto84 
8 
6248 ifa$="rechteck 1-3”"thenw$(i)=s 
tr$li)+":goS 10240” :gotoB4 
8 
6268 ifa$="rechteckrot."thenw$l[i)= 
str$(i)+":go5S 19269” :goto84 
8 
6288 ifa$="drehquadrat2”thenw$li)= 
str$(i)+":goS 180280” :goto84 
8 


63AB ifaß=-"fTassade"”thenw$li)=str$( 
i)+":goS 18388" :goto848 
6328 ifa$="gehvor”thenw$li)=str$li 
}+":goS 190320” :goto848 
6348 ifa$="fassaden"thenw$( i)=str$ 
(i)+":go5 18348" :goto848 
6368 ifa$="rbogen”thenw$li)=str$li 
)+":g05 18368” :g0t0848 
6389 ifa$="blatt"thenw$(i)=str$(i) 


+":g05 18388” :goto848 
6488 ifa$="dolde"thenw$(i)=str$(i) 
+":g05 10498" :goto848 
6428 ifa$="stiel"thenw$(i)=str$(i) 
+"”:g05 18420” :goto848 
6448 ifa$="blume”"thenw$(i)=str$(i) 
+":g05 18448” :goto848 


6468 ifa$="garten"thenw$(i)=str$(i 
)+":go5 18460” :gato848 
6488 ifa$="blumenmotiv"thenw$(i)=s 


<kp> 


<bn> 


<kp> 


<bj> 


<ho> 
<ıf> 
<bg> 
<lo> 
<dh> 
<fo> 
<fj> 
<lm> 
<kf> 


<bo> 


« 


} 
DEMO ZUR IGELGRAFIK 


tr$(i)+":goS 10480” 

12) 

6588 ifa$="demo1"”thenw$(i)=str$(i) 

+":g05 18598” :goto848 

6528 ifa$="demo2"thenw$(i)=str$(i) 

+":g05 18528" :g0t0848 

6548 ifa$="demo3”"thenw$[l i)=str$(i) 

+":g05 18540” :g0t0848 

6568 ifa$="demo4"”thenw$li)=str$li) 

+":g05 18568” :goto848 

6588 ifa$="demo"”thenw$li)=str$(i)*+ 

":g05 19588" :g0oto849 

6688 ifa$="wachsquadrat”thenw$li)= 

str$(i)+":go5S 198609” :goto84 

8 

6628 ifa$="wachsfassade”thenw$li)= 

str$(i)+":goS 10629” :gotoB4 

1) 

6989 return 

6998 rem***neue befehle (direktmod 

us) nr 

7998 ifa$="quadrat”thenc=a:gosub 1 

BRABB:goto2128 

7828 ifa$="kisteS"thenc=a:gosub 18 

828:g0t02128 

7848 ifa$="stern5”"thenc=a:gosub 18 

848: g0t02128 

7a6a ifa$ßs"dreieck"thenc=a:gosub 1 

BB6B:g0to2128 

7888 ifa$="drehquadrat”thenc=a:gos 

ub 18988:g0t02128 

7188 ifa$="mitte"thenc=a:gosub 1®1 

88:g0t02128 

7128 ifa$="demodrehquadrat"”thenc=a 
:gosub 18129:g0t02128 

7148 ifa$="stern”"thenc=a:gosub 181 

48:goto2128 

7168 ifa$="demostern"thence=a:gosub 
18168:g0t02128 

7188 ifa$="stern2"thenc=a:gosub 18 
189: g0t02129 

7280 ifa$="demostern2”"thenc=a:gasu 

b 18289:g0t02128 j 

7228 ifa$="rechteck 1-5"thenc=a:gos 

ub 18228: g0t02128 

7248 ifa$="rechteck 1-3”"thenc=a:gos 

ub 19249:g0t02128 

7268 ifa$="rechteckrot."thenc=a:go 

sub 18268:g0t02128 

7288 ifa$="drehquadrat2"thenc=sa:go 

sub 18288:g0t02128 

7380 ifa$="fassade”thenc=a:gosub 1 

8309:g0t02128 

7328 ifa$="gehvor"thenc=a:gosub 18 

329: g0t02128 

7348 ifa$="fassaden”thenc=a:gosub 

108349: g0t02128 

7368 ifa$="rbogen”thenc=a:gosub 18 


:goto84 


<gl> 
<nc> 
<ih> 
<ap> 
<fk> 
<jm> 
<nf> 
<ah> 
<fo> 
<oc> 
<mg> 
<fg> 
<cj> 
<dce> 
<jo> 
<lg> 
<ag> 
<mj> 
<pj? 
<ad> 
<nc> 
<dn> 
<fa> 
<op> 
<jd> 
<ae> 
<bf> 


<kd> 


368:g0t02128 . 

7388 ifa$="blatt"thenc=a:gosub 183 
88:goto2128 

7408 ifa$="dolde"thenc=a:gosub 184 
08:g0t02128 

7428 ifa$="stiel"thenc=a:gosub 184 
28:g0t02128 

7448 ifa$="blume"thenc=a:gosub 184 
48:g0t02128 

7468 ifa$="garten"thenc=a:gosub 18 
468:g0t02128 

7488 ifa$="blumenmotiv"thenc=a:gos 
ub 18489:g0t02128 

7588 ifa$="demol"thenc=a:gosub 185 
B8:g0t02128 

7528 ifa$="demo2"thenc=a:gosub 185 
28:g0t02128 

7548 ifa$="demo3"thenc=a:gosub 185 
48:g0t02128 

7568 ifa$="demo4"thenc=a:gosub 185 
69:g0t02128 

7588 ifa$="demo"thenc=a:gosub 1858 
9:g0t02128 

7608 ifa$="wachsquadrat”thenc=a:go 
sub 18628:goto2128 

7628 ifa$="wachsfassade"thenc=a:go 
sub 18629:g0t02128 

7989 return 

18008 : 

18881 draw m to B+c;b 

18882 w= 98:b=b+w:if b>36@thenb=b- 
368 

18883 draw m to B+c;b 

18084 w= 98:b=b+w:if b>36ßthenb=b- 
368 

18805 draw m to B+c;b 

18886 w= 98:b=b+w:if b>36ßthenb=b- 
368 

18887 draw m to B+c;b 

18088 w= 98:b=b+w:if b>36@thenb=b- 
368 

18889 return 

19928 c= 18 

18821 :gosub 10808 

19822 c= 28 

18823 :gosub 10989 

19924 c= 38 

18925 :gosub 18988 

18826 c= 48 

18827 :gosub 18888 

108828 c= 58 

18829 :gosub 18888 

18838 return 

18048 : 

18841 ri=5 

18842 z 1=8:do 

18843 draw m to B+c;b 

10044 w= 144:b=b+w:if b>36Bthenb=b 
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"368 <mg> 18172 return <ff> 
2845 z 1=z 1+1:loopuntilz 1>=r 1 <oc> 1B188 : <bb> 
"=846 return <fi> 1B181 : <bd> 
zn: <ca> 18182 do until b> 359 . <ej> 
zei 113 <co> 18183 draw m to Bto;b <do> 
‚©2862 z 1=8:do <eh> 18184 w= G+iw:b=b+w:if b>36ßthenb= 
‚2863 draw m to Btc;b <mg> b-368 <lm> 
(BB64 w= 128:b=b+w:if b>36ßthenb=b 18185 loop:c=B <ep> 
-368 <bn> 18186 return <hb> 
‘2865 z 1=z 1+1:loopuntilz 1>=r 1 <io> 10280 iw= 144 <gn> 
‘8266 return <ja> 18281 c= 188 <bg> 
BBBB : <sej? 18282 :gosub 18188 <ji> 
‘8881 do until b> 359 <mi> 10283 :gosub 18188 <ak> 
‚2882 c= 58 <bd> 18284 iw= 135 <el> 
8883 :gosub 18888 <el> 18285 c= 58 <11> 
ıBaB4 w= B+iw:ib=b+w:if b>36ßthenb= 18206 :gosub 18188 <jk> 
>-368 <jp> 18287 :gosub 18188 <ai> 
18885 loop:c=® <mc> 18288 iw= 168 <eh> 
18886 return <kj> 18289 c= 28 i <pf> 
aaa ramttpur® <op® 18218 :gosub 19188 <je> 
12181 locate168+((rgr(3)=3orrgr( 4) 18211 return <kc> 
=4)*88) , 108:b=8:w=® <nh> 18228 : <ga> 
ıB182 rem**pd** <km> 18221 ri= 2 <cl> 
18183 for v=1 to 2088:next <dm> 18222 z 1=8:do s <ep> 
18184 x=rdot(B) :y=rdot( 1} :scnelr:1 18223 draw m to 1*c;b <ie> 
ocate x,y <kc> 18224 w= 90:b=b+w:if b>36ßthenb=b- 
18185 return <mp> 368 <bl> 
18120 iw= 45 <kj> 18225 draw m to 5*c;b <me> 
18121 :gosub 18980 <im> 18226 w= 98:b=b+w:if b>36ßthenb=b- 
18122 :gosub 18188 <ac> 360 <oh> 
18123 iw= 98 <ao> 18227 z i=z 1+1:loopuntilz 1>=r 1 <la> 
10124 :gosub 18088 <ap> 18228 return <me> 
18125 :gosub 18188 <ic> 10248 : <ik> 
10126 iw= 15 <ge> 18241 ri= 2 <hp> 
18127 :gosub 18888 <ij> 19242 z 1=8:do <jo> 
10128 :gosub 18188 <pn> 10243 draw m to 1*c;b <kd> 
18129 iw= 58 <mh> 18244 w= 98:b=b+w:if b>36@thenb=b- 
18138 :gosub 10888 <ac> 368 <be> 
18131 return <ad> 18245 draw m to 3*c;b <mb> 
1n148 : <mb> 18246 w= 98:b=b+w:if b>36ßthenb=b- 
18141 do until b> 359 <ko> 368 <oo> 
18142 draw m to 5ß;b <ak> , 18247 z 1=z 1+1:loopuntilz 1>=r 1 <Iig> 
10143 w= B+tiw:b=b+w:if b>36ßthenb= - 18248 return <oo> 
b-368 <ko> 18268 r2= 6 <li> 
18144 loop:c=® <cd> 18261 z 2=8:do <gh> 
18145 return <bp> 108262 :gosub 18228 <dn> 
181608 iw= 135 <hc> 18263 w= 6@:b=b+w:if b>36@thenb=b- 
18161 :gosub 18148 <he> 368 <ep> 
18162 :gosub 18188 <og> 18264 z 2=z 2+1:loopuntilz 2>=r 2 <ba> 
19163 iw= 144 <dd> 18265 return <ba> 
18164 :gosub 18148 <op> 18280 : <nk> 
18165 :gosub 19188 <gg> 18281 z 2=8:da <ga> 
18166 iw= 158 <no> 18282 :gosub 18888 <co> 
18167 :gosub 18148 <hb> 108283 w= B+iw:b=b+w:if b>36ßthenb= 
18168 :gosub 18188 <pj> b-368 <dl> 
18169 iw= 168 <kf> 18284 z 2=z 2+1:loopuntilz 2>=r 2 <me> 
18178 :gosub 18148 <ac> 18285 return <di> 
18171 :gosub 18188 <hl> 18388 : <ac> 
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18301 :gosub 10898 <je> 18448 : <bl> 
18302 draw m to B+c;b <le> 18441 :gosub 10428 <pc> 
18383 w= 38:b=b+w:if b>368ßthenb=b- 10442 :gosub 18408 <gp> 
360 <di> 19443 draw m to-(21%#c) ;b <im> 
18384 :gosub 19868 <bn> 18444 return <hh> 
18385 w=368-( 38) :b=b+w:ifb>36ßthe 1B468 c=-68 <ij> 
nb=b-368 <po> 18461 :gosub 198328 <je> 
10386 draw m to-{ Brc);b <ni> 18462 c= 1 <nb> 
18397 return <ge> 18463 :gosub 19448 <jj> 
19328 : <ck> 18464 c= 38 <ph> 
18321 rem**pu** <jk> 18465 :gosub 18328 <ja> 
ia322 w= 98:b=b+w:if b>36Bthenb=hb- 18466 c= 2 <pc> 
368 <ko> 18467 :gosub 18448 <kd> 
18323 locate 18+c;b <gl> 18468 c= 38 <dg> 
10324 w=368-( 98) :b=b+w:ifb>36ßthe 10469 :gosub. 18328 <ji> 
nb=b-368 <dd> 18478 c= 3 <bd> 
18325 rem*#pd** <fk> 18471 :gosub 19448 <kf> 
18326 return <ik> 18472 return <ko> 
108348 c=-188 <en> 18488 : <gk> 
18341 :gosub 18328 zni® 18481 b=®: do until b> 359 <io> 
19342 c= 19 <fk> 18482 :gosub 12448 <bk> 
18343 :gosub 18308 <nj> 18483 w= Briw:b=b+w:if b>36@thenb= 
18344 :gosub 18328 <fm> b-368 <ab> 
18345 c= 28 <im> 10484 loop <ce> 
108346 :gasub 18328 <fl> 18485 return <mi> 
18347 :gosub 19328 <np> 18588 c= 58 <fa> 
18348 c= 38 <ma> 18581 :gosub 18898 <dj> 
108349 :gosub 19388 <ni> 18582 :gosub 18108 <mb> 
18350 :gosub 10328 <fn> 108583 :gosub 19028 <ea> 
18351 return <In> 18504 :gosub 18188 <mc> 
10368 : <hl> 18505 c= 88 <ke> 
18361 ri= 9 <an> 18586 :gosub 18048 <mh> 
18362 z 1=8:do <le> 18597 :gosub 18188 <ec> 
18363 draw m to #+c;b <al> 18588 c= 48 <mm> 
10364 w= 18:b=b+w:if b>36ßthenb=b- 10589 :gosub 19068 <ej> 
368 <cm> 18518 :gosub 18188 <1n> 
18365 z 1=z 1+1:loopuntilz 1>=r 1 <ed> 18511 return <po> 
18366 return <n1> 18528 :gosub 19128 <ko> 
10380 :gosub 18368 <jg> 18521 :gosub 19188 <ck> 
18381 w= 98:b=b+w:if b>368thenb=b- 18522 :gosub 19168 <1h> 
368 <ij> 18523 :gosub 18188 <c1> 
18382 :gosub 18368 <jb> 18524 c= 28 <mj?> 
18383 w= 99:b=b+w:if b>368thenb=b- 18525 :gosub 18228 <db> 
368 ö <cen> 10526 :gosub 18188 <kf> 
10384 return <pp> 18527 c= 38 <pl> 
18488 r2= 3 <ho> 18528 :gosub 18248 <lc> 
18481 z 2=B:do <ig> 18529 :gosub 18188 <co> 
10482 :gosub 18388 <ih> 128538 c= 28 <cj> 
18483 w= 68:b=b+w:if b>368thenb=b- 18531 :gosub 18268 <do> 
368 <pl> 108532 :gosub 19108 <km> 
18484 z 2=z 2+1:loopuntilz 2>=r 2 <pe> 18533 return <ck> 
18485 return '. . <cj> 108548 iw= 72 <fj> 
18428 : <pd> 18541 c= 58 <oa> 
18421 draw m to 7*c;b <mo> 18542 :gosub 18288 <mb> 
190422 :gosub 18388 <ib> 18543 :gosub 18188 <cn> 
18423 draw m to 14*c;b <pm> 10544 :gosub 10348 <lo> 
18424 :gosub 19498 <ie> 10545 :gosub 10188 <cg> 
18425 return <fb> 10546 c= 18 <ci>. 
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2547 


2} 


68 


m u u 


au 


a [6] 
wnooonaend oo dic 


[6] 


:gosub 18368 
:gosub 18188 
:gosub 1838® 
:gosub 18188 
return 

c= 2 

:gosub 18488 
:gosub 18488 
:gosub 18188 
:gosub 18428 
:gosub 19188 
:gosub 18448 
:gosub 18188 
:gosub 18468 
:gosub 18128 
iw= 38 

c= 3 

:gosub 18488 
return 
:gasuh 18598 
:gosub 18528 
:gosub 18548 
:gosub 18568 
return 

zl= 18 

:do until c> 
:gosub 18888 
e=ctzl 
loop:c=® 
return 

zi= 18 

:do until c> 
:gosub 19388 
:gosub 18328 
c=c+tzl 
loop:c=d 
return 

c= 1 

:gosub 190488 
c= 18 

:gosub 18368 
return 


rem demo. pkt==============p4 
rem nur in verbindung 
rem mit igel-programm 


rem 


188 


68 


rem achtung !!! 


rem programm darf nicht 
rem umnummeriert werden. 


<dk> 
<ke> 
<dn> 
<kj> 
<eo> 
<ol> 
<ck> 
<kl> 
<bp> 
<km> 
<bm> 
<lf> 
<chb> 
<l1k> 
<cc> 
<ak> 
<ed> 
<1m> 
<hk> 
zke> 
<ci> 
<1lb> 
<ge> 
<jb> 
<il> 


. <pe> 


<mp? 
<gi> 
<ob> 
<11> 
<bj> 
<jc> 
<pn> 
<ia> 
<11> 
<ig> 
<of> 
<hh> 
<bd> 
<dp> 
<ai> 
<al> 
<gf> 
<mb> 
<pi> 
<be> 
<od> 
<ig> 
<ih> 
<hl> 


AUF SCHATZSUCHE IM LABYRINTH 


Räuber 


Suchen Sie den Schatz, der in diesem 
3-D-Labyrinth verborgen ist. In der linken oberen 
Ecke wird die Entfernung angezeigt. Die Zeit läuft 

mit, Wer ist der Schnellste? 


Sie stehen in einem Labyrinth. Wohin Sie auch schau- 
en, überall nur Gänge und Wände. Doch halt, etwas 
gibt Ihnen Aufschluß darüber, wo Sie sich ungefähr 
befinden. In der oberen Ecke sehen Sie eine Zahl. 
Das ist die Entfernung zum verborgenen Schatz. Ihn 
zu finden, ist nur eine Frage der Zeit, denn keine 
Monster oder sonstige Feinde bedrohen Sie. Sie sind 
mutterseelenallein. 

Oft glauben Sie, gleich müßten Sie den Schatz er- 
reicht haben. Doch dies ist ein Trugschiuß, denn ur- 
plötzlich ist der Weg zu Ende und eine undurchdring- 
liche Wand behindert Ihr Fortkommen. Es gibt dann 
nur eines: wieder zurückzugehen und in einem der an- 
deren zahlreichen Gänge Ihr Glück zu versuchen. 
Haben Sie endlich den Schatz erreicht, wird Ihnen 
mitgeteilt, wie lange Sie dazu gebraucht haben. Am 
Anfang dürften Sie es schwer haben. Später, mit et- 
was Übung, wird es schneller gehen. Sie brauchen je- 
doch nicht zu glauben, daß Sie dann das Labyrinth 
schon auswendig kennen, denn jedesmal wird es neu 
aufgebaut. 

Nach erfolgreicher Schatzsuche dürfen Sie das Laby- 
rinth von oben betrachten, um einen Überblick zu 
bekommen. Sichtbar sind der Lageplan, Ihr Start- 
punkt, der Schatz und der zurückgelegte Weg. Wenn 
Sie wollen, dürfen Sie es jetzt von Neuem versuchen. D 
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18 rem raeuber-===-=----=-=-======0165 <kn> 
28 rem (p) commodore welt team <ho> 
38 rem =========================== cng> 
48 rem (c) by eckhard schulz <no> 
58 rem <pd> 
68 rem <ah> 
78 rem basic v3.5 <nl> 
88 rem c16/116/plus4- <ki> 
98 rem =========================== (jg> 
188 gosub2868 <gc> 
118 keyß,"?":color®, 1:color4,1:pri 

ntwh$ <pp> 
128 printchr$( 142) chr$(8) :gasub274 

[%) <di> 
138 h=12:v=7:h1=h+1:w=818:v1=1638 <pn> 
148 i=-rnd( -ti) nj?> 
158 dimx1(4),n2(4) ,yl(4),xr(4) <fo> 
168 fori=®to4:readxl(i),n2(i),ylli 

}),xr(i) :next <ji> 
178 data8,28,-4,31,8,12,1,27,12,6, 

5,24,15,2,8,22,17,8,18,21 <ji> 
188 cx=int(rnd( 1)*h)+1:cy-int(rnd( 

1)#v) +1 <ci> 
198 c=cx:r=cy:s=d <mf> 
2088 fori=dto( v+1)*hl:pokew+i,8:pok 

evi+i,8:next <gh> 
218 printcl$c4$c4$”"aufbau des laby 

rinthes” <hf> 
228 da=-®:n=B:av=vi+c+r#hl:aw=w+tc+r 

#hl:pokeaw, 1:5=s+t1:ifs>=h*vthend8Q0 <jo> 
238 printmid$(rf$,(sandi)+1,1)"V"; <om> 
248 ifc>landpeskl( aw-1) -Bthenda-da+ 

2:n=n+1 <hh> 
258 ifc<handpeek( aw+1) =Bthenda=da+ 

I:n=n+1 <ei> 
268 ifr>1landpeek( aw-h1)=@thenda=da 

+8:n=n+1 <pd> 
278 if(r<vändpeek( aw+h1)=8) thenda= 

dat4:n=n+1 “nj> 
288 n=int( rnd{ 1)*n) #1 <mi> 
298 onda+1g0t0300,478,468,330,458, 

340,350,368,440, 378,380, 398,400,41 

0,420,430 <fm> 
388 s=s-1 <dm> 
318 c=c+1i:ifc>hthenc=1:r=er+1:ifr>v 

thenr=1 <bn> 
328 onpeek( w+c+r*h1)+1g0t0310,228 <mo> 
338 onngoto468,478 <ai> 
348 onngot0458,478 <ig> 
358 onngoto458, 468 <im> 
368 onngoto458,468,478 <bf> 
378 onngoto448,478 <np> 
388 onngoto448,468 <po> 
398 onngoto448, 468,478 <gk> 
488 onngoto448,458 <ip> 
418 onngoto448, 458,478 <aj? 
428 onngoto448,458,468 <go> 
438 onngoto448,458,468,478 zmh> 
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448 r=-r-1:av-av-hi:pokeav,peeklav) 
ori:goto228 

458 pokeav,peek(av)ori:r=r+1:avsav 
+h1:goto228 

468 c=c-1:av=av-1I:pokeav,peek(av)o 
r2:goto228 

478 pokeav,peek(av)or?2:c=c+1:av=av 
+1:goto228 

488 i=rnd( 1)>.5: j=rnd( 1) :k=rnd( 1)> 
5 

498 ifithenx=int( j#h) +1:y=-v+(v-1)* 
k 

588 ifi-ßtheny-int( j#v) +1:x=h+(h-1 
)*k 

s1B iflcx-x) "2+lcy-y) "2<{h"2+vW°2)/ 
9then488 

528 sx=-x:5y=y 

538 ti$="OH8088” 

540 : 

558 printcl$ 

568 fori=wtow+t( v+1)*hl:pokei,®:nex 
t 
578 d=int( rnd( 1)*4) 

588 t4=ti:poke(lw+tx+ty®h1), 1 

598 iff-Bthengosub958:printhe$;int 
(sqr(l(x-cx) "2+{ y-cy) "2)#19+.5)/18 
688 ifcx=xandcey=ythen2598 

618 getg$:ifg$=-""goto61d 

628 ifg$="?"thenk=ti:goto2628 

638 jq=joy( 2) 

648 ifg$=c4A$or jq=5thend=d+2 

658 ifg$=c1$or jq=-7thend=d-1 

668 ifgq$=c3$or jq=3thend=d+1 

678 ifd<dthend=d+4 

688 ifd>I3thend=d-4 

698 ifg$=c2$or jq=Ithen?88:e1se598 
788 av-vi+tx+ty#thl:aw-wtx+ty®thl 

718 ondgoto748, 768,788 

728 ify>land( peek( av-hi)andi)theny 
=y-1:pokeaw-h1,1:g0t0598 

738 g0t0798 

748 ifx<hand( peek( av) and2) thenx=x+ 
1:pokeaw+1,1:g0t0598 

758 g0t0798 

768 ify<vand( peek( av)andi)theny=y+ 
1:pokeaw+th1,1:g0t0598 

778 goto798 

788 ifx>1and( peek( av-1)and2) thenx= 
x-1:pokeaw-1,1:g0t0598 

798 dn=23:gosub2718 

888 printtabf 16) z2$ze$ze$ze$ze$lef 
t$(q1$,14)c4$rn$”"kein durchgang”c2 
$:fori=1t01889:next 

818. printtab( 16) c2$spc{ 14) left$(ql 
$,14)c4$spc( 14) c2$:goto608 

828 printel$” "”; 

838 fori=1toh:printze$ze$ze$; :next 
:printc4$c4$ 


<fg> 
<fd> 
<ab> 
<eg? 
<od> 
<oj> 
<mj> 


<ip> 
<ae> 
<ei> 
<hg> 
<be> 


<f3j> 
<gn?> 
<fl> 


<ok> 
<pi> 
<be> 
<pa> 
<hi> 
<nm?> 
<ct> 
<nk> 
<gc> 
<pn> 
<eg> 
<gb> 
<na> 


<ek> 
<jb> 


<ga> 
<mo> 


<li> 
<bl> 


< jm> 
<om> 
<gk> 


san? 
<op> 


<om> 


RAEUBER-LABYRINTH = 


548 forj-itov:printz9$c2$c1$z9$c2$ 1268 ifcy-y+sandex-xthengosub2448 <ah> 
21$z29$c4$c4$; :fori=1toh <ja> 1278 ifsy-ytsandsx"xthengosub2528 <Smn> 
5582 k=peek( vi+ti+j*h1) <dd> 1288 k=peek( av+s*h1) :ifk=Bork=2the 

358 printmid$( ze$tze$+zp$+b2$+z9$+ ngoto1358 <ie> 
ze$tze$tze$+tb3$, 1+3*K,3); <gi> 1298 ifpeekl av- 1+s&h1) and2thengosu 

578 ifk<2thenprintc2$c1$29$c2$c1$z b1558:g0t01318 <nl> 
3$c4$c4$; <ip> 1300 gosub 1678 <pm> 

588 printc2$c1$; <dk> 1318 ifpeek( av+s*#h1)=1thengosub214 

598 ifpeek(w+i+j*hl)=ithenprintci$ 8:g0t01338 <oc> 

2495 <oh> 1328 gosub2B28 <fn> 

388 ifi=sxandj=sythenprintci$+rn$+ 1338 8=s+1:ifs>4g0t01548 <eh> 

,#PTE <1b> 1340 goto1268 <jp> 

318 ifi=cxandj=cythenprintc1$+z5$; <ae> 1358 ifpseklav-1+s*h1)and2thengosu 

328 ifi=-xandj-ythenprintc1$;mid$(" b1758:g0t01378 <hl> 
">v<”,d+1,1); <oj> 1368 gosub2228 <ga> 

9338 printc3$c4$; <bj> 1378 ifpeek( av+s#h1)-Bthengosub232 

948 next:printc4$c4$:next:return <in> 8:g0t01398 <hi> 

958 s=B:printel$ <ap> 1380 gosub1898 <po> 

968 av-vi+xty*hl <ca> 1398 return <he> 

378 ondgoto112D, 1268, 1488 <al> 1488 ifcx=x-sandcy= hengrua RER <hb> 

988 ifsy=y-sandsx=xthengosub2528 <bb> 1418 ifsx=x-sandsy=ythengosub2528 <ck> 

398 ifcy=-y-sandex-xthengosub2448 <ec> 1428 k-peekl av-(s+1)) :ifk=Bork=-1ith 

1888 k=-peekl av-( s+1)*h1) :ifk-Bork- engoto1498 <jo> 

2g0t01878 <np> 1438 ifpeek( av-s-hi)andithengosubi 

1818 ifpeeklav- EEETENFUDETE RENT 559:g0t01458 <seb> 

558:g0t01838 <gt> 1448 gosub 1678 <im> 

1828 gosub 1678 <mj> 1458 ifpeek( av-s)andithengosub2928 

10838 ifpeek(av-1-s#h1)and2thengosu :goto1478 <md> 

b2828:goto1858 <oo> 1468 gosub2148 <oo> 

1848 gosub2148 <ei> 1478 s=s+1:ifs>4then1548 <ba> 

1858 s=-s+1:ifs>4goto1548 <fk> 1488 goto1488 <ci> 

1868 goto98B <fc> 1498 ifpeek(ov-s-hi)andithengosubi 

1878 ifpeek( av-s#h1)and2thengosub I 758:g0t01518 <pa> 

758:g0ot0o1898 <eo> 1588 gosub2228 <pd> 

1888 gosub2228 <dp> 1518 ifpeekl av-s)andithengosub 1898 

1898 ifpeek( av-i-s*hi)and2thengosu :g0t01538 <af> 

b1898:goto1118 <kc> 1528 gosub2328 <ha> 

1188 gosub2328 <mf> 1538 return <in> 

1118 return <ec> j 1548 dn=11:gosub2718:printtabf 19)" 

1128 ifcy-yandex=-x+sthengosub2448 <ap> MN"c4$c1$c1$"NM"he$:return <mm> 

11380 ifsy=yandsx=x+sthengosub2528 <Ih> 1558 dn=yl(s) :gosub271® <cn> 

1148 k=peek(av+s) :ifk=Bork=1goto12 1568 ifs=®thenprinttab( xr{s))ze$ <kl> 

18 <he> 1578 ifs>Bands<4Athenfori=-1t04-s:pr 

1158 ifpeek(av+s) =-2thengosub 1670:g inttab( xr(s) +5-s) zj$:next <ol> 

0t01178 <bi> 1588 ifs>@thenprinttab( xr(s))mid$( 

1160 gosub1558 <fp> ze$tze$t+tze$+tze$+tzj$,s) <kc> 

1178 ifpeek(av+s-h1)andithengosub2 1598 ifs=4thenprinttab(xr(s))zj$+z 

829:g0t01198 <pn> Jj$+c4$+c1$+c1$+zj$+zj$ <fh> 

11858 gosub2148 <nl> 1688 q$="":ifs>dtheng$=mid$( c3$+c3 

1198 s=-s+1:ifs>4goto1548 » <1b> $+c3$+zj$,s) <mo> 

1288 goto1128 <aj> 1618 ifs<4thenfori=®ton2( s)+1:prin 

1218 ifpeek(av+s)=Bthengosub2228:g ttab(xr(s))zj$g$:next <pk> 

0t01238 <fb> 1628 ifs>Bthenprinttab( xr(s))mid$({ 

1228 gosub 1758 <no> zm$+zm$+zm$+zm$+zj$,s) <ha> 

12368 ifpeek(av+s-hi)andithengosub1 1638 ifs>Bands<4thenfori=1t04-s:pr 

898: g0t01258 <In> inttab( xr( s) +5-5) zj$:next <fm> 

1248 gosub2328 <fh> 1648 ifs=dthenprinttab(xr(s))zm$ <cg> 

1258 return <fl> 1658 printhe$ <bl> 
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1668 return 

1678 dn=yl(s) :gosub2718 

1688 ifs=dthenprinttab(xr(s))"N”:g 
0t01788 

1698 fori=1t05-s:printtabl xr( 3) +5- 
s-i) "N" :next 

1788 dn=n2( s) +2:g0sub2728 

1718 ifs=-@thenprinttab( xr{s))"M":g 
oto1738 - 

1728 fori=-®to4-s:printtab(xr(s)+i) 
"M":next 

1738 printhe$ 

1748 return 

1750 j=3-s:ifs=dthen j=8 

1768 printhe$; 

1778 ifs>dgoto1818 

1788 printtab( 28) ; :printc4$; :fori” 
1t018:printzm$; :next:printzm$ 

1798 dn=n2(B) :gosub2728 

1808 printtab( 28) ;:fori=1t019:prin 
tze$; :next:goto1878 

1818 dn=yl{s) :gosub2728 

1828 Fori=1t05-s:printtab( j+xr(s) + 
2) zj$:next 

1838 printtab( 28) ; :fori=19toj++xr( 
5) :printzm$; :next:printzj$ 

1848 ifs<4thenfori=1ton2({ s) :printt 
ab( j+txr(s) +2) zj$:next 

1858 printtab( 28) ;:fori=19toj+xr(s 
}:printze$; :next:printzj$ 

1868 fori-1t05-s:printtab( j+txr(s) + 
2)zj$:next 

1878 printhe$ 

1888 return 

1898 printhe$; 

1988 ifs>dgoto1948 

1918 printc4$; :fori=1to1l1+x1(®) :pr 
intzm$; :next:printzm$ 

1928 dn=n2(B) :gosub2728 

1938 fori=1to12+x1(8) :printze$; :ne 
xt:g0t01878 

1948 dn=yl(s) :g0osub2728 

1958 fori=1t05-s:printtab( x1(s))z9 
$:next 

1968 printtab( xl{s)) ;:printz9$; :fo 
ri=xl(s)to17:printzm$; :next:printz 
m$ 

1978 ifs<4thenfori=1ton2(s) :printt 
ab(x1(s))z9$:next 

1988 printtab(x1(s));:printz9$;:fo 
ri=xl(s)to17:printze$; :next:printz 
e$ 2 

1998 fori=1t05-s:printtab( x1{s))z9 
$:next 

2888 printhe$ 

2818 return 

2828 dn=yl(s) :gosub2718 

2838 ifs=Bthenprinttab( xl{s))ze$ 


<jd> 
<eal> 
<be> 


<ek> 
<ho> 


<kc> 


<jh> 
<ca> 
<dd> 
<de> 
<di> 
sen? 


<lb> 
<dd> 


<fm> 
<on? 


<hp> 
<gk> 
<bo> 
<gf> 
<fg> 
<oj? 
<em> 
<ij? 
<fk> 


<ml> 
<nh> 


<of> 
<im> 


<ba> 


<1f> 


<ca> 


<li> 


<nb> 
<bb> 
<fb> 
<pp> 
<1f> 


2848 ifs>Qands<4thenfori-1to4-s:pr 
inttab( x1(5s)) z9$:next 

2858 ifs>dthenprinttab( x1{(s))left$ 
(z9$+ze$tze$tze$+tze$,6-5) 

20868 ifs-4thenprinttab( x1(s))z9$+z 
9$+c1$+c1$+rc4$+z29$+z9$ 

2078 q$=-"":ifs>Btheng$=mid$( c3$+c3 
$+c3$+z9$, s) 

2888 ifs<A4thenfori=Bton2(s)+1:prin 
ttab( x1(s)) z9$q$:next 

2898 ifs>@thenprinttab( xl(s))left$ 
( z9$+zm$+zm$+zm$+zm$, 6-5) 

2188 ifs>dands<4thenfori-1to4-s:pr 
inttabf{ x1(s)) z9$:next 

2118 ifs=dthenprinttab( x1(s})zm$ 
2128 printhe$ 

2138 return 

2148 dn=yl{s) :gosub2718 

2158 ifs-Bthenprinttab( x1(ls))"M":g 
ot0o2178 

2168 fori=1t05-s:printtab( x1{s)+i) 
"M":next 

2178 dn=n2( s) +2:g0sub2729 

2188 ifs=®thenprinttab( x1(s))"N"”:g 
0oto2288 

2198 fori-8to4-s:printtab( x1( s) +5- 
s-i) "N" :next 

2288 printhe$ 

2218 return 

2228 gosub 1678 

2238 dn=yl(s)+5-s:gosub2718 

2248 printtab( 28); 

2258 ifs<4thenfori=iItoxr(s)-21:pri 
ntzm$; :next 

2268 print"P"c1$c4$; 

2270 ifs<4thenfori=1ton2( s) :printz 
9$c4$c1$; :next 

2288 printzp$c1$c1$; 

2298 ifs<4thenfori=1toxr( s)-28-1:p 
rintze$c1$c1$; :next 

2388 printhe$ 

2318 return 

2328 ifs-Bthen j>-5:g0t02348 

2338 j=-® 

2348 gosub2148 

2358 dn=yl(s) +5-s:gosub2718 

2368 printtab( 19); 

2378 ifs<4thenfori=1to18-x1(s)-5+s 
+j:printzm$c1$c1$; :next 

2388 print”0”"c1$c4$; 

2398 ifs<4thenfori=1ton2(s) :printz 
j3$c4$c1$; :next 

2488 print"L”; 

2418 ifs<4thenfori=1t018-x1(s)-5+s 
+j:printze$; :next 

2428 printhe$ 

2438 return 

2448 ifs=Bors=4thenreturn 


<kd> 
<1d> 
<pp> 
<bf> 
<fl> 
<pk> 


<mg> 
<be> 
<jJj? 
<ec> 
<oj? 


<ak> 


<am?> 
<x1h> 


<mn? 


<je> 
<skae> 
<od> 
<gg> 
<dm> 
<ff> 


<ma> 
son? 


<hj> 
<fc> 


san? 
<nm> 
<km> 
<kp> 
<nh> 
<gf> 
<nl> 
<jf> 


<pm> 
<ji> 


<cp> 
<hg> 


<ca> 
<gk> 
<jn> 
<pc? 
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158 dn=-18:gosub2718 <pb> chritt vorwaerts"” <em> 
258 ifs=3thenprinttab( 28) c2$+tc2$+ 2798 print” cursor left"b2$"- dreh 
ar" .” <ec> ung nach links" <ob> 
278 ifs=2thenprinttab( 19) rn$+c2$+ 2888 print" cursor right = drehung 
E$+rf$+rZ28$rce1$+rce1$+ce4$+rzZ5$+"N"”+c2 nach rechts <hf> 
+2j$ <ln> 


2818 print” cursor down”b2$"”= dreh 


Ben LERSTEEHENTEEUFD R <fk> ung um 188 grad" <b> 
30 printtabl 18)c4$” "ze$ze$ze$le 2828 print” help"spc(9)"= hilfe" <je> 
"ı${qg1$,4)cA$"N”b2$"N”; <dm> 


2838 printc4$"” analog dazu steueru 


‚>e® printzj$left$(g1$,5)c4$z25$25$ ng mit dem joystick"b2$c4$"in port 


'$" "zj$left$(q1$,5)c4$25$z25$25$” 


- 14.” <nf> 
: <gd> 2848 printcA$cA$spc( 7)"druecke ta 

‚518 return <dn> ste’ zum start” <ji> 
7528 ifs=-Bors-4thenreturn <dl> 2858 getkeya$:return <kc> 
2538 dn=2B:gosub2718 <pb> 2868 b$=chr$( 32) :b2$=b$+b$ <ja> 
2548 ifs=3thenprinttab( 19) left$(qu 2878 b3$-b?$+b$:b4$-b3$+b$ <kf> 
5,5) +rn$+z1$+z21$+02$+01$+c1$+rf$+z 2858 b5$-b4$+b$:b$-b5$+b5$ <io> 
'$+z1$ <ek> 2898 rem nachspann =============== <kh> 
2558 ifs-2thenprinttobl 16) 02$+c2$+ 2900 rem * farboodes/steuercodes *# <ad» 
2$+rn$+zB$b3$b3$yq$ <1m> 2918 wh$=chr$( 885) :c4$-chr$(017) <gd> 
2568 ifs=ithenprinttab( 13) rn$+z8$b 2928 rn$=chr$( 818) :he$=chr$( 819) <fm> 
so2$ya$ <ig? 2938 c3$-chr$( 829) :c2$-chr$( 145) <ma> 
2578 ifs-ithenprinttab( 12) rn$+z8$b 2948 rf$-chr&( 146) :c1$-chr$( 147) <he> 
spa$yq$ <mh> 2958 c1$=chr$( 157) <id> 
2588 return <mk> 2968 rem ##%* zeichensatz/graphik * <gb> 
2598 printhe$b$”"deine zeit: "left$ 2978 zi$=chr$( 162) :z5$=chr$( 166) <km> 
.t1$,2)":"mid$Lti$,3,2)"""right$lt 2988 zB$=chr$( 169) :z9$=chr$( 178) <mm> 
i$,2)b5$b4$ <ek> 2998 ze$=chr$( 175) :zj$=chr$( 188) <fb> 
2588 k=-ti:fori-1t025:poke2835,23:p 3008 zm$-chr$( 183) :zp$-chr$( 186) <me> 
oke2836, 15:sys65528:print”gefunden 3818 yq$=chr$( 223) <do> 
*":forj=1t05@:nextj <kb> 3028 rem ######### zeichenfolgen # <ca> 
2618 poke2835,23:poke2836, 15: 54565 3038 forg-1to1d:zz$-zz$tze$:next <kn> 
528:printb$:forj=1t05@:nextj,i <el> 39848 for qg=i to 48 <pp> 
2628 gosubB28 <dm> 3858 qu$=qu$+c2$:q1l$=-ql$te1$ <ib> 
2638 printtab( 18)c2$"noch ein spie 3868 next q <fe> 
17; <m1> 3878 return <ka> 
2648 sw=1:tm=B <da> 3080 rem -=ouu-nnnnnnn nn nn „= <op> 
2658 gett$:ift$<>""then2688 <oa> 3898 rem 12277 bytes memory <ae> 
2668 ifti>tmthenprintmid$("? "”,sw, 3188 rem 87955 bytes program <pe> 
1)c1$; :tm=ti+15: sw=3-sw <oo> 3118 rem 08399 bytes variables <dj? 
2678 goto2658 <jc> 3128 rem 80128 bytes arrays <if> 
2688 ift$="j"thenprint"” ja.":gotoi 3138 rem 88585 bytes strings <ih> 
88 <el> 3148 rem 83298 bytes free (®) <eh> 
2698 ift$="n"thenprint"” nein"+c4$: 3158 rem ====----]n..--Semoemeemene <1h> 
end <gi> 

2788 goto2658 <go> 

2718 printhe$; <ie> 

2728 ifdn>@thenforz=iItodn:printc4$ 

‚next j <pk> 

2738 return <ph> 

2748 printel$c4$spc( 13) "schatzraeu 

ber" <di1> 

2758 printc4$spc(7)”(c) 1987 by ec 

khard schulz"” <cc> 

2768 printc4$c4$c4$” finde den sch 

atz der in dem labyrinth znl> 

2778 printc4$"” verborgen ist. <ml> 


2788 printc4$" cursor up"b4$"- 1 s 


LISTINGS raue 


Sprites und Animatltioı 


Hier ist sie, die BASIC-Erweiterung, mit der Sie, 

sofern Ihr Rechner mit mehr als 16 KByte Haupt- 

speicher ausgerüstet ist, richtige Sprites erzeugen 

können. 26 Befehle bringen eine Menge Bewegung 
ins Spiel. 


Jetzt gibt es auch für den C16 Sprites, die den Hinter- 
grund nicht überschreiben und pixelweise positioniert 
werden können. Außerdem stellen wir jede Menge Be- 
fehle vor, die das Programmieren von Änimation, 
Scrolling und vielem mehr ermöglichen. 


Vorab noch einige Hinweise: 

1. Alle Befehlsworte beginnen mit einer Raute (#). 

2. Im Direktmodus und nach den BASIC-Befehlen 
THEN und ELSE muß zusätzlich ein Doppelpunkt 
eingegeben werden: 
IFX=0THEN: #SPRITEOFFO 

3. Der Befehl GRAPHIC CLR darf nicht mehr be- 
nutzt werden, da sonst S&A BASIC zerstört würde. 

4. Bevor man die Sprites benutzt, muß man 
:#ZTRANS120 :#CHN120 : POKE65287,136 
eingeben. 

5. Aufbau eines Sprites: 
Ein Sprite ist ein aus neun Zeichen zusammenge- 
setzter Block. 
Es werden aber nur zwei mal zwei Zeichen als 
Sprite dargestellt. 

6. Sprites dürfen sich nicht überlagern, da es sonst zu 
Grafikverfälschungen kommt. 


DIE S&A-BASIC-BEFEHLE 


1. #SETSPRITE Nr, XG, YG, XF, YF 
[Nr=0-7; XG=0-37; YG=0-22; XF, YF=0—8] 


Setzt das Sprite Nr auf die Bildschirmposition XG; YG. 


XF und YF bieten die Möglichkeit, das Sprite nach der 
groben Positionierung auf die Feinposition XF; YF zu 
setzen. 


2. #SPRITEOFF NR 
[NR=0—7] 


Schaltet das Sprite Nr ab. 


3. #ANIMATE BC,R 
[BC=0-255; R=0-3] 


Das Zeichen mit dem Bildschirmcode BC wird um ein 
Pixelin die Richtung R verschoben. Was die einzelnen 
R-Werte bewirken, ist unter ‚„‚Richtungswerte‘‘ be- 
schrieben. 


4. #SPIEGEL BC, RH 
[BC=0-255; RH=0-1] 


Das Zeichen BC wird horizontal (RH=0) beziehungs- 
weise vertikal (RH=1) gespiegelt. 


5. #FILLXO, YO,XU, YU, Z 
[XO, XU=0-39; YO,YU=0-24; Z=0—255] 


Füllt den Bildschirmausschnitt mit den Koordinaten 
XO; YO und XU; YU mit den CHR$-Code des Zei- 
chens Z. 


6. #SPALTE Flagl 
[Flagl=0-1] 


Der Bildschirm wird abhängig von Flagl auf 38 be- 
EEE 40 Spalten gesetzt (siehe auch unter 
agl). 


7. #ZEILE Flagl 
[Flagl=0—1] 


Der Bildschirm wird, abhängig von Flagl, auf 24- 
em gebracht (siehe auch unter 
agl). 


8. #SCROLLR, XO, YO, XU, YU, Flag? 
[R=0-3; XO, XU=0-39; YO,YU=0-24; 
Flag2=0-1] 


Scrollt oder rollt einen Bildschirmausschnitt mit den 
Koordinaten XO; YO und XU; YU in die Richtung 
R (siehe auch unter „Richtung“, Flag2). 


9. #SOFTV Pos 
[Pos=0—7] 


Setzt den Bildschirm auf die vertikale Smooth-Scrol- 
ling-Position pos. 


10. #SOFTH Pos 
[Pos=0—7] 


Hat dieselbe Wirkung wie SoftV, nur in horizontaler 
Richtung. 
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ERSTES LISTINGSE 


mit BASIC für 


1. =CHN ADR 
[ADR=0-255] 


Schaltet den selbstdefinierten Zeichensatz mit der 
Hish-Adresse ADR an (siehe auch ADR). 


12. #CHOFF 


Schaltet denselben aus und gleichzeitig den Original- 
Zeichensatz an. 


13. #ZTRANS ADR 
[ADR=0-255] 


Kopiert den Original-Zeichensatz an die High-Adres- 
se ADR ins RAM (siehe auch ADR). 


14. #ZLINK BC, MUSTER 
[BC=0—255; Muster=0— 255] 


Das Zeichen mit dem Bildschirmcode BC wird mit 
dem Muster EOR-verknüpft. 


15. #MCN 

Schaltet den Multicolor-Modus an. 
16. #MCOFF 

Schaltet ihn aus. 

17. #ECMN 


Schaltet den erweiterten Hintergrund-Modus (=Ex- 
tended-Color-Mode) an. 


18. #ECMOFF 
Schaltet ihn aus. 


19. #ZDESIGN BC, x,%8,%,%,%,%,%,X 
[BC,x=0-255] 

Definiert ein neues Zeichen mit dem Bildschirmcode 

BC und den acht Byte x. ; 


20. #SDESIGN Nr, Bnr, x, x, X, %,%,X,X, X 
_[Nr=0—-7; Bnr=0—3; x=0—255] 

Definiert den Block Bnr des Sprites Nr durch die acht 

Byte x. 

Bnr=0 linke obere Sprite-Ecke 

Bnr=1 linke untere Sprite-Ecke 

Bnr=2 rechte obere Sprite-Ecke ° 

Bnı=3 rechte untere Sprite-Ecke 


CiI6/P 4 


21. #5SREVERS Nr, Bnr 
[Nr=0-7; Bnr=0—3] 


Reversiert den Block Bnr des Sprites (siehe auch 
#SDESIGN BNR). 


22. #ECMCOL Fl, F2, F3 
[F1, F2, F3=0—255] 


Legt die drei zusätzlichen Farben für den ECM-MODE 
est 


23. #MCCOL Fl, F2 
[F1, F2=0-255] 


Legt die zwei zusätzlichen Farben des MC-Modes fest. 
24. #MELODY Mnr, Is I TH, TL 

[Mnr=0-4; Tg=0-2; L=0-8; TH=0- 1023; 

TL= =0-255] 
Definiert die Melodie Mnr auf dem Tongenerator Tg 
mit der Länge L und den dazugehörigen Noten 
(TH=Tonhöhe, TL-Tonlänge). 


25. #PLAY Mnr 
[Mnr=0—4] 


Spielt die Melodie Mnr, die zuvor definiert wurde. 

26. #5HOW 

Zeigt alle S&A-BASIC-Befehle auf dem Bildschirm an. 
RICHTUNGSWERTE 


Bei R=0 wird nach links, bei R=1 nach rechts verscho- 
ben. Nach oben wird bei R=2 verlagert, bei R=3 folg- 
lich nach unten 


Flag 1 

Flag 1=0 — Der Bildschirm wird verkleindert. 

Flag 1=1 — Der Bildschirm hat seine normale 
Größe. 

Flag 2 


Flag 2 bestimmt, ob der Bildschirm gerollt: 
Flag2<128 oder gescrollt wird: 
Flag 2 2128 


Bitte lesen Sie weiter auf Seite 122 
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S&A-BASIC========================P4 
(P) COMMODORE WELT TEAM 

(C) BY MICHAEL INDEN 

PLUSA4 (C16/116 + 64 KB) 

Das Programm ist’ mit dem Maschinen- 
sprachmonitor TEDMON unter Zuhilfe- 
nahme des Pruefsummenprogrammes 
CHECGKMON einzugeben und auf Disket- 
te mit 5"58&A BASIC”,8, 18901,29885 ab- 
zuspeichern, auf Kassette mit 

S"S&A BASIC”,1,1291,2005S. 

Danach kann das Programm wie ein 
BASIC-Programm gehandhabt werden. 
»ına9 Hu 23 IR Ba Aa 8f 28 53 :<46> 
»>ı008 26 A1 28 42 41 53 49 43 :<bd> 
>1018 3d 3d 3d 3d 3d 3d 3d 3d :<Ab> 
>1818 3d 3d 3d 3d 34 3d 3d 3d :<3b> 
>1a28 590 34 BB 44 198 14 DB 8 :<f5> 
>1028 28 28 598 29 28 a2 59 28 :<bb> 
>1030 43 af Ad Ad Af 44 Af 52 :<eb> 
>1038 45 28 57 45 Ac 54 28 54 :<fe> 
>19848 45 41 Ad BB 66 18 ie BB :<6b> 
>1048 Bf 28 3d 3d 3d 3d 3d 3d :<73> 
>1858 3d 3d 3d 3d 3d 3d 3d 3d :<Bc> 
>1858 3d 3d 3d 3d 3d 3d 3d 3d :<cQ> 
>1868 3d 3d 3d 3d 3d BB 81 19 :<al> 
>1068 28 Ba Br 20 28 43 29 28 :<69> 
>1070 A2 59 28 Ad 49 43 48 41 :<ef> 
>1878 45 Ac 28 49 4e 44 A5 4e :<66> 
»ı1888 09 87 IB 32 Da Bf BB a5 :<b4A> 
>18868 I8 3c 88 Bf 28 58 Ac 55 :<cf> 
>1989a 53 34 28 28 43 31 36 2f :<id> 
>1898 31 31 36 28 2b 28 36 34. :<BA> 
>10aB 28 Ab 42 29 BB c7 IB 46 :<58> 
>1038 88 Bf 28 3d 3d 3d 3d 3d :<12> 
>1Bba 3d 3d 3d 3d 3d 3d 3d 3d :<d®> 
>18b8 3d 3d 3d 3d Id 3d 3d 3d :<7Ff> 
>18c98 3d 3d 3d 3d 3d 3d BB e2 :<9B> 
>10c8 19 58 BU 9e 20 34 33 35 :<e6> 
>1I8dR0 38 3a BF 28 Ad 41 53 43 :<Bc> 
>10d8 AB 49 Ae 45 Ae 43 Af 44 :<ie> 
>1BeB 45 BR BA 11 5a RB Bf 28 :<Q8> 
>18e8 3d 3d 3d 3d 3d 3d 3d 3d :<5Ff> 
>ıBFfBa 3d 3d 3d 3d 3d 3d 3d 3d :<Af> 
>18f8 3d 3d 3d 3d 3d 3d 3d 3d :<BB> 
>1180 3d 3d 3d BB nu BR a9 Af :<Bd> 
>1188 85 2c 85 2e 28 9a Ba c6 :<68> 
>1110 75 a9: Ac 85 dß a9 11 85 :<6d> 
>1118 di a9 b9 85 d2 a9 Be 85 :<8c> 
>1128 d3 a9 88 85 dA a9 AB 85 :<60> 
»1128 d5S a5 d2 aa aß 88 bi dB :<74> 
>1138 91 d4 cB dß f9 e6 di e6 :<bb> 
>1138 d5 ca dd f2 a6 d2 bi dB :<f2> 
>1148 91 d4 cB ca dB fB Be BB :<df> 
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>1148 
>1158 
>1158 
>1168 
>1168 
>1178 
>1178 
>1188 
>1188 
>1198 
>1198 
>11a8 
>1138 
>11b8 


>11b8 


>11c8 
>11c8 
>11d® 


.>11dB 


>11e8 
>11e8 
>11f8 
>i1F8 
>1288 
>1208 
>1218 
>1218 
>1228 
>1228 
>1238 
>1238 
>1249 
>1248 
>1258 
>1258 
>1268 
>1268 
>1278 
>1278 
>1288 
>1288 
>1298 
>1298 
>12a8 
>1238B 
>12b® 
>12b8 
>12c8 
>12c8 
>12d® 
>12d8 
>12e8 
>12eB 
>12f8 
>i12F78 
>1388 
>13808 
>1318 


48 
67 
d2 
14) 
85 
85 
23 
23 
23 
23 
23 
23 


ı<7e> 
ı<73> 
:<dc> 
:<7c> 
:<31> 
ı<fi> 
:<47> 
:<11> 
:<B1> 
:<32> 
:<21> 
ı<52> 
:<bc> 
:<3a> 
:<86> 
:<1a> 
ı<56> 
ı<a5> 
:<b2> 
:<c2> 
:<d2> 
ı<14> 
:<87> 
ı<66> 
:<92> 
ı<22> 
:<29> 
ı<52> 
:<42> 
:<ed> 
ı<62> 
:<92> 
ı<df> 
ı<d6> 
:<d5> 
:<f8> 
:<V1> 
:<fc> 
:<be> 
:<58> 
:<ee> 
ı<54> 
ı<52> 
ı<S5c> 
:<18> 
:<ac> 
ı<29> 
ı<8b> 
ı<e3> 
ı<ad> 
ı<79> 
:<Aa> 
:<93> 
ı<c5> 
ı<74> 
ı<6a> 
ı<B4> 


:<6be> 


m 


SSEA—-BASIC 


»2318 
‚1328 
»1328 
»1338 
»1338 
»1349 
»1348 
»1358 
>1358 
>1369 
>1368 
>1378 
>1378 
>13880 
>1388B 
>1398 
>1398 
>13380 
>13a8 
>13bM 
>13b8 
>13c89 
>13c8B 
>13d8 
>13d8 
>13eB 
>13e8 
>13f8 
>13f8 
>1408 
>1488 
>1418 
>1418 
>1428 
>1428 
>1438 
>1438 
>1440 
>1448 
>1458 
>1458B 
>1468 
>1468 
>1478 
>1478 
>1488 
>1488 
>1498 
>1498 
>14308 
>14aB 
>14b8 
>14bB 
>14cB 
>14c8 
>14d® 
>14d8 
>14eB 


v4 


SSEA—-BASIC u 


S&SEA—-BASIC . 


1358 
»1368 
»1368 
>1378 
>»1378 
>1388 
>1a388 
>1390 
>1398 
>1a3aB 
>1aaB 
>1abO 
>1ab8 
>1ac# 
>1acB 
>1ad® 
>1ad8 
>1aeB 
>1laeB 
>I1af® 
>1af8 
>1bAB8 
>1b88 
>1b18 
>1b18 
>1b28 
>1b28 
>1b38 
>1b38 
>1b48 
>1b48 
>1b58 
>1b58B 
>1b68 
>1b68 
>1b78 
>1b78 
>1b88 
>1bBB 
>1b98 
>1b98 
>1baß 
>1baB 
>1bb® 
>1bb8 
>1bc8 
>1bc8 
>1bdd 
>1bdB 
>1be® 
>1beB 
>ibf® 
>1ibf8 
>1c88 
>1c88 
>1c1® 
>1c18B 
>1c28 


15 
a4 
15 
49 
d® 
Ba 
Ba 
65 
ag 
85 
82 
88 
b1 
19 
28 
41 
38 
d2 
41 
86 
18 
68 
13 
87 
e6 
ie 
b9 
85 
9d 
4a 
28 
49 
45 
1414] 
46 
54 
45 
53 
45 
ar 
56 
43 
46 
[41%] 
43 
1217] 
Ad 
53 
53 
56 
43 
dc 
a8 
af 
97 
ic 
98 
fb 


ı<f4> 
..<bB> 
:<71> 
:<99> 
:<ab> 
:<ail> 
:<16> 
:<ad> 
:<61> 
:<eaä> 
:<c6> 
:<cd> 
:<cc> 
ı<f4> 
:<bc> 
:<c6> 
:<a9> 
:<c4A> 
ı<ab> 
:<ic> 
:<d?> 
ı<82> 
ı<Bf> 
:<1b> 
:<4ai1> 
:<15> 
ı<32> 
ı<5b> 
:<ge> 
:<ed> 
:<40> 
:<16> 
:<dd> 
:<16> 
:<c5> 
:<eil> 
:<ad> 
:<b3> 
:<Se> 
:<ec> 
:<B9> 
:<408> 
:<85> 
ı<7f> 
:<76> 
:<89> 
:<3b> 
:<ba> 
:<56> 
:<48> 
ı<53> 
ı<53> 
:<e9> 
:<d6> 
:<c3> 
.<c3> 
:<13> 
:<69> 


>1c28 
>1c38 
>1c38 
>1c48 
>1c48 


>1c58 
>1c58B 


">1c6® 


>1c68 
>1c78 
>1c78 
>1c88 
>1c88 
>1c98 
>1c98 
>1icad 
>1icaB 
>1cb8 
>1cb8 
>1Icc® 
>1icc8 
>icdß 
>1cd8 
>ice® 
>1ce8 
>iIcf® 
>icf8 
>1d88 
>1d88 
>1d18 
>1d18 
>1d28 
>1d28 
>1d38 
>1d38 
>1d48 
>1d48 
>1d58 
>1d58 
>1d68 
>1d68 
>1d78 
>1d78 
>1d88 
>1d88 
>1d98 
>1d98 
>1daß 
>1da8 
>1db® 
>1db8 
>1idc® 
>1dc8 
>1ddd 
>1dd8 
>1de® 
>1ideB 
>1idf® 
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27 :<d6> 
b6 :<72> 
88 :<99> 
88 :<9c> 
88 :<ac> 
BB :<bc> 
BB :<cc> 
a8 :<dc> 
88 :<ec> 
08 :<fc> 
88 :<@c> 
88 :<id> 
BB :<2d> 
88 :<3d> 
88 :<4Ad> 
89 :<5d> 
a0  :<6d> 
BB :<7d> 
eB :<8Bd> 
88 :<9d> 
aß :<Bf> 
a0 :<30> 
eB :<3d> 
88 :<e3> 
28 :<3d> 
cB :<fc> 
88 :<28> 
88 :<id> 
ea :<2d> 
Ba :<3d> 
88 :<Ad> 
898 :<5d> 
ff :<74> 
ff :<7d> 
BB :<8B6> 
ff :<a4> 
ff :<ad> 
88 :<b6> 
88 :<cd> 
88 :<dd> 
88 :<ed> 
3e :<29> 
1c :<@d> 
80 :<92> 
84 :<38> 
80 :<A3> 
88 :<4e> 
88 :<Se> 
@B :<6e> 
BB :<7e> 
85 :<9a> 
08 :<d2> 
88 :<ae> 
88 :<be> 
88 :<ce> 
88 :<de> 
88 :<ee> 
88 :<fe> 


SSA—-BASIC 


» 


>1fc8 BB 80 Ba Ha 28 Ba Q0 Aa :<bA> 
>ifdB BB BB Da Da ma na na HB :<cd> 
>1ifd8 BB BB BB 28 Da DB BB BB :<d@> 
>iIfed BO DO BB DO Da Da Ha BB :<ed> 
>1feB d0 Ba BB 97 aR 92 95 BB :<8d> 


SCA-BASIC 


Fortsetzung von Seite 117 


ADR 

ADR kann zwar theoretisch Werte von O bis 255 an- 
nehmen. Damit der Rechner nicht abstürzt, sollten 
aber nur Werte zwischen 16 bis 56 und 79 bis 120 
verwendet werden. 
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Die BASIC-Erweiterung geben Sie ein, indem Sie das 
Programm CHECKMON laden und starten. Anschlie- 
ßend gehen Sie mit MONITOR in den Maschinenmo- 
nitor Ihres Rechners. Tippen Sie nur die Zeilen ab, 
die am Anfang das Zeichen „>“ enthalten. Was 
rechts ab dem Doppelpunkt erscheint, brauchen Sie 
nicht einzugeben. Die erscheinenden zwei Buchsta- 
ben zwischen dem Größer- und Kleinerzeichen die- 
nen zur Kontrolle Ihrer Eingabe. Zum Abspeichern 
richten Sie sich nach den Anweisungen im Programm- 
vorspann. Nach dem Starten mit RUN kopiert sich 
das Maschinenprogramm in den Bereich von $4000 
bis $4EB8. Die Speicheraufteilung ist die, die sich 
nach einem Aufruf der hochauflösenden Grafik er- 
gibt. Der BASIC-Anfang wurde vorverlegt auf $4EBA. 
Nach dem Starten von S&A-BASIC können Sie sich 
von den neuen Möglichkeiten ein Bild machen, in- 
dem Sie das Programm S&A-DEMO ausprobieren, 

das einige der neuen BASIC-Befehle nützt. = 
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 .- _ .  _ kallesı 


Jetzt perfekt: 
Unser Checksummer 


Hatte bisher unser 
-secksummer an Buch- 


chts auszusetzen, SO 
zziet er sich nun nicht 
ehr so kulant. 

Ob Sie mit der alten 
“ersion nun eingegeben 
hatten: 


!O print”ab” 
oder 
10 print “ba”, 


der Checksummer 
Srachte in beiden Fällen 
die Prüfsumme < gk >. 
Leicht kann es vorkom- 


men, dafs beim schnel- 
len Tippen, besonders 
im Zehnfingersystem, 


die Taste, die eigentlich 
erst als übernächste dran- 
kommen sollte, ein wenig 
zu früh erwischt wird. 
Dem Checksummer, der 
lediglich die Ascii-Werte 
der Buchstaben addierte, 
konnte dieses natürlich 
nicht auffallen. Was also 
tun? Ob etwas früher oder 
später addiert wird, än- 
dert nichts am Resultat 
der Summe. Anders ist 
es, wenn man zwei Ver- 
knüpfungsarten kombi- 
niert. So ist z.B. 2*30+40 
etwas anderes als 2*40+ 
30. Und genau dieses war 
dann die Lösung. Die 
Summe wird nun einfach 
durch eine Linksver- 
schiebung vor jeder Addi- 
tion verdoppelt. Da- 
durch, daß im Falle, 
wenn das Ergebnis größer 
als 255 ist, der dabei ent- 
stehende Übertrag als 
Wert 1 zusätzlich addiert 
wird, verflüchtigen die 
Werte der am Anfang der 
Zeile gefundenen Codes 
sich nicht nach 8 weite- 
ren Zeichen. Damit bleibt 
nicht nur die Aussage- 
kraft der Prüfsumme voll 
erhalten, sondern erfät “ 


sogar eine erhebliche 
Steigerung. Und vor allen 
Dingen wird nur eine 
klitzekleine Änderung er- 
forderlich, die dieses zu 
vollbringen, in der Lage 
ist. Ein einziges Byte ist 
nur zu ändern. Wir tun 
dieses mit “poke 345,10” 
in der Zeile 470. Dadurch 
wird das hier ursprünglich 
ansässige CLC (Clear Car- 
ry) durch ASL (Arithme- 
tik Shift Left) ersetzt. 
Die nachfolgende Addi- 
tion mit ADC (Addiere 
mit Carry) addiert den 
Ascii-Code des gefunde- 
nen Zeichens und den 
nach links herausgeshifte- 
ten Übertrag. Da einige 
unserer Leser beklagten, 
daß das Checksummer- 
listing nachher noch im 
Programmspeicher stehen 
würde, haben wir diesem 
noch mit einem “new” 
abgeholfen. New bzw. 
neu ist nun folgendes. 


10 print“ab” ergibt die 
Prüfsumme<jd> 

10 print”ba” die Prüf- 
summe<jf> 


Sie brauchen den 
Checksummer nicht neu 
einzutippen. Alles, was 
Sie tun müssen, ist, die 
Zeile 470 anzufügen. An 
der Bedienung des Check- 
summers hat sich nichts 
geändert. Die Eingabehin- 
weise bleiben daher wie 
gehabt. 


EINGABEHINWEISE 


Am rechten Rand jedes 
Listings, jeweils am Ende 
einer Eingabezeile, finden 
Sie zwei Buchstaben zwi- 
schen einem Kleiner- und 
einem Größerzeichen ein- 
geschlossen. Diese dürfen 
Sie nicht mit in Ihr 


Listing 


eintippen, son- 
dern sie dienen Ihnen zur 
Überprüfung Ihrer Ein- 
gabe. 

Zwischen dem Kleiner- 
und dem Größserzeichen 
am rechten Rand be- 
finden’ sich zwei Buch- 
staben. Mit einem speziel- 
len Programm können Sie 
beim Eintippen Ihre Ein- 
gabe auf ihre Richtigkeit 
überprüfen. Dieses Pro- 
eramm, der Checksum- 
mer, sorgt nämlich dafür, 
dafs nach erfolgter Zeilen- 
eingabe am linken oberen 
Bildschirmeck zwei Buch- 


ERST SICHERN, DANN 
AUSPROBIEREN 


staben ausgegeben wer- 
den. Wenn diese Buch- 
staben nicht mit den vor- 
her erwähnten Buchsta- 
ben in unserem Listing 
übereinstimmen, so kön- 
nen Sie davon ausgehen, 
daß Sie sich vertippt 
haben und können sich 
so die Zeile nochmals 
näher ansehen, ob Sie 
Ihren Eingabefehler fin- 
den. Wenn Sie dann alles 
richtig getippt haben, so 


"stimmen die Buchstaben 


überein und Sie können 
sich getrost der nächsten 
Zeile zuwenden. 

Das Checksummer- 
listing hat noch keine 
Prüfsummen. Seien Sie 
deshalb besonders auf- 
merksam, daß alles pafst 
und speichern Sie dieses 
Programm unbedingt ab, 
bevor Sie es starten! Bei 
einem Tippfehler würde 
es sich wahrscheinlich auf 
Nimmerwiedersehen ver- 
abschieden und Sie müß- 
ten die ganze Arbeit ver- 
mutlich nochmals ma- 
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chen. Wenn Sie es gestar- 
tet haben, so geschieht 
nichts Besonderes. Der 
Computer meldet sich 
einfach kurz darauf mit 
„READY”, und das war 
auch schon alles. Alles 
sollte nun wie immer 
funktionieren, mit der 
kleinen Ausnahme, daß 
nunmehr nach jeder Ein- 
gabe im Direktmodus 
eine Prüfsumme erscheint. 
Nehmen Sie zum Testen 
irgendeine kurze Basic- 
zeile aus unserem Heft 
her und testen sie aus. 
Wenn die Summen über- 
einstimmen, so können 
Sie sich freuen, denn 
Fehler beim Abtippen 
werden Ihnen nun in Zu- 
kunft viel weniger passie- 
ren, als vorher. 


EINER FÜR ALLE, EIN 
ECHTES UNIVERSAL- 
PROGRAMM 


Unseren Checksummer 
können Sie verwenden, 
ob Sie einen C16/116/ 
Plus4 oder ob Sie einen 
C64 oder gar einen C128 
haben. Nur müssen Sie 
beim letzteren beachten, 
ob Sie auch wirklich im 
40-Zeichenmodus sind. 
Nachdem Sie den Check- 
summer geladen und ge- 
startet haben, können Sie 
Ihr Basicprogramm ein- 
geben wie gewohnt, Sie 
können es abspeichern, 
Sie können auch laden, 
Sie können Kürzel ver- 
wenden und, ob Sie ein 
paar Leerzeichen mehr 
oder weniger verwenden, 
der Checksummer läßt 
sich dadurch nicht aus 
der Fassung bringen. Ein 
bißchen Vorsicht sollte 
man allerdings walten 
lassen, wenn man Pro- 
gramme eingetippt hat, 
in denen Peeks und Pokes 
vorkommen. Es wird 
zwar nicht besonders 
häufig vorkommen, aber 
es könnte bisweilen ge- 


Bservc 


188 
118 
128 
138 
148 
158 
168 
178 
188 
198 
288 
285 
218 
228 
238 
248 
t 
258 
268 
278 
288 
298 
388 
318 
ıne 
328 
:go 
338 
348 
358 
368 
378 
388 
398 
488 
418 
428 
438 
448 
458 
468 
478 
488 
498 
588 
518 
528 
538 
548 


rem =checksummer==c16 c64 c128== 
rem (p) 85/87 commodore welt == 
rem ==============2==2=====2==2===== 
rem (c) alfons mittelmeyer == 
rem == 
rem c16/116/plus4 == 
rem c64 3 = 
rem c1i2B (48-zeichen) == 
rem ===========2==2=2===2=2====2====== 
rem -------------- ------------- 
rem grundroutine (c16) 
rem -------------- ------------- 


data165,859,872,165,8690,972,832 
data®ß86, 137,184, 133,868, 184,133 
data85S9,152,872,168,8808, 165,928 
data8ß24,181,821,178,824, 144,811 
data281,832,248,9886, 138,924,113 
data859,234,178,288, 177,059,234 
data288,248,169,831,872,138,874 
data974,874,0874,072,138,841,815 
dats872,169,831,872,162,9003,194 
data®24,185,129,157,888,812,282 
dataB16,246, 184,168,896 
lt=peek( 772) :ht=peek( 773) 
fori=312t0386:readx:pokei,x:nex 


iflt<>124then358 
rem --------------------------- 
rem 
fori=312t0317:pokei,234:next 
fori=32it0326:pokei,234:next 
fori=1to6:readad:readx:pokead,x 
xt 
poke388,4:poke319,1t:poke328,ht 
t0o438 

data346, 121,347,89898,348,882 
data351,185,352,808,353,882 
iflt<>13then438 

rem 


rem 
restore418:poke332,22 
poke335,23:goto318 
data313,861,316,862,323,062 
data326,861,347,861,352,0861 
poke772,856:poke 773,1 


rem -------- ----------- ---- ---- 
rem ergaenzung 18/87? 

rem ------------------- ---- ---- 
poke 345, 1®:new 

rem ===2=5=====2====2==2= === 20 =202= >= 
rem = fuer hefte cw 7/87 bis = 
rem = cw 9/87 sowie cw128 5/87= 
rem = und c1i6 6/87 ist die:- = 
rem = poke-anweisung in zeile > 
rem = 478 wegzulassen = 
rem ==========2=2===2==2=2========== 


schehen, dais nach dem 
Laufenlassen eines Pro- 
gramımes weder der 
Checksummer noch sonst 
etwas mehr funktioniert, 
auch wenn dies bisher 
ohne Checksummer nicht 
der Fall gewesen sein 
sollte. Also bitte sichern 
Sie in jedem Falle Ihre 
Programme, bevor Sie sie 
ausprobieren. 

Ein paar Dinge sollten 
Sie noch wissen. Wir 
drucken in unseren Li- 
stings des öfteren Punkte 


statt Leerzeichen. Wenn 
Ihnen nun aber Leer- 
zeichen besser gefallen, 
so liefert der Checksum- 
mer natürlich eine fals_ne 
Summe. Wenn Sie diese 
Richtigkeit  überprü’en 
wollen, so können Sie 
dies tun, indem Sie sie 
zuerst einmal so wie im 
Heft abtippen, und nach- 
her, nachdem Sie sie nach- 
geprüft haben, einfach 
wieder die Punkte durch 
Leerzeichen ersetzen. 

A. Mittelmeyer 


MONITOR 


CHECKMON 


48 rem checkmon ===============016 <cn> 
58 rem (p) commodore welt team <ke> 
68 rem ====================220=2===== cnk> 
78 rem (c) by a.mittelmeyer <ag> 
88 rem c16/116/plus4 <ki> 
IB rem ======---=======2==22020==== (ig) 
188 fori=312t0398:reada <ei> 
118 pokei,a:next <ep> 
128 data 132,218,188,219,0,132,219 <oe> 
138 data 164,218,76,75,236,281,62 <nk> 
148 data 288,249, 165,161, 18,181 <jc> 
158 data 162,168,7,18,113,161,136 <ej> 
168 data 16,258,133,216,169,38,133 <oh> 
172 data 217,169,62,166,97,208,228 <mk> 
188 data 198,217,288,218,168, 185 <ai> 
198 data 288,212,281,13,248,4,164 <ha> 
208 data 218,24,96,169,68, 160,68 <1h> 
218 data 32,61,1,165,216,32,16,251 <ec> 
228 data 169,62,168,5,208,2,169,32 <om> 
230 data 32,75,236,136,288,248,169 <ol> 
2480 data 13,208, 176,219,68,228,1 <go> 
258 data 884,56,885, 1 <hn> 
268 fori=1to4:reada:readb:pokea,b <Im> 
278 next:new <ji> 
288 rem ========e=n=d=e=========== <cc> 
"CHECKMON” ist eine unerlaessliche Hil- 


fe zur Eingabe von Maschinenprogrammen. 
Laden und starten Sie "Checkmon” und 
gehen dann mittels MONITOR in densel- 


ben. Wenn Sie sich nun z.B. 


mit 


"HIBBB’ 
einen Speicherbereich ansehen, oder 


Hexzahlen eingeben, so erscheint rechts 
die Pruefsumme anstatt der Asciicodes. 


BEER IEIRZETEIELZEZBEE LISTINSSE 


ZEICHENCREATOR 


Eigene Zeichen 
entwickeln 


auf dem C16 


Mit dem Joystick und menüunterstützt 
entfällt die lästige Rechnerei. Zeichen editieren 
wird komfortabel. Besonders wenn Drehun- 
gen, Spiegelungen und weitere Funktionen 
zur Verfügung stehen. 


Mit dem Zeichencreator lassen sich sowohl einfarbige 
als auch Multicolorzeichen komfortabel erstellen und 
editieren. Sie können Zeichen invertieren, in andere 
Zeichen kopieren, scrollen, horizontal und vertikal 
spiegeln, drehen und vieles mehr. 
Der Cursor wird mit den Cursortasten und mit dem 
Joystick in Port 1 beziehungsweise 2 (wählbar, siehe 
Menüpunkt 1) gesteuert. 
Den Zeicheneditor rufen Sie durch Aktivieren des 
zweiten Menüpunktes auf. Alle Funktionen und Ta- 
sten werden rechts auf dem Bildschirm angezeigt. 
Den Zeichenmodus können Sie durch Drücken der 
SHIFT- und ‚„+“-Taste verändern: 
ModusO = Löschen; 
Modus 1 bis3 = Punktfarbe 1 bis 3. 
Um ein Zeichen in ein anderes zu kopieren, drücken 

- Sie c (1), suchen sich mit ‚‚+“ ein Zeichen aus (2) 
und drücken Sie Return (3). Editieren Sie das Zei- 
chen (4), drücken Sie erneut c (5) und suchen Sie das 
Zeichen mit „+“ aus, in das das andere Zeichen ko- 
piert werden soll (6). Jetzt drücken Sie „F“ (7). 
Falls Sie das Zeichen schon editiert haben, führen Sie 
nur noch Schritt 5 bis 7 aus. 
Wenn Sie Ihre Zeichen in eigenen Programmen benut- 
zen wollen, so wählen Sie den Menüpunkt „Zeichen- 
data“. Er sollte aber erst dann angewählt werden, 
nachdem alle Zeichen editiert sind. 
Ab Zeile 8000 entstehen Zeichendata mit Einlese- 
programm. Jetzt geben Sie Delete — 7000 ein, um nur 
noch das Einleseprogramm und die Data im Spei- 
cher zu haben. 
Alles weitere wird im Programm erklärt. Vergessen 
Sie nicht, vor dem ersten RUN abzuspeichern. m) 
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18 rem zeichencreator==========0.16 <gj> 450 : <mb> 
28 rem (p) commodore welt team 27 468 printc4$c4$b9$"bitte waehlen s 
30 rem =============--=--=2=0==02= cng> ie [1-5] <Ik> 
48 rem (c) by michael inden <gh> 470 a$="":getkeya$ <fm> 
58 rem <pd> ABa a=vallaf) <tj> 
68 rem <ah> 498 ifa<tora>Sthenprintleft$(qu$,4 
78 rem basic v3.5 <n1> ):goto460 - <kd> 
88 rem c16/116/plusA <ki> 500 : <ct> 
98 rem =======================2=== 0jg> 518 onagoto0548,658,2918,3138,328@ <md> 
188 poke55,8:poke56,56:c1r <bm> s2eB : <eo> 
118 rem mit 64 kb zeile 108 ersetz aan 2 <ge> 
en durch ’graphic1,1:clr:graphic®’ <ka> 548 rem steuerung <km> 
128 rem farben <am> 558 senelr <di> 
130 : <dp> 568 printc4$c4$c4$" cursosteuerung 
140 color1,1:color@,2:color4,7,5 <cn> : hormal” <> 
150 fort=1375t01382:poket,@:next <nk> 370 printc4$c4$" joysticksteuerung 
168 : <hl> : port"po” [+]"” <oh> 
178 rem zeichenkopierroutine <ga> 588 printc4$c4$" m = "rn$"back to 
188 - <kd> menue"rf$ <1f> 
198 fFort=0t032:readp:poke1383+t,p: 590 geta$ <k1> 
next <am> 688 ifa$="+"thenpo=po+1:ifpo>2then 
200 data169,288,133,289,169,8,133, pet } <pp> 
208,133,210,169,56,133,211,162,8,1 610 ifa$="m"thengoto378 <ek> 
68,0, 177 <bj> 628 char1,25,6,str$(po) <ao> 
218 data298, 145,218, 136,208,249,23 638 goto59B <dp> 
0,289,238,211,202,208,240,96 <gn> 640 : <dp> 
220 sys1383:gosub3348 <fi> 658 rem zeichensatzeditor <1m> 
230 : göhs 660 : Eu 
248 rem variablen <mc> 678 printcl$bk$; <ki> 
259 : <cp> 688 Fort=8to?7:print"........ B"t:ne 
268 mf=8:mo=1:po=1:g=1:zd=8068:b=1 <la> xt <ip> 
278 p(®)=46:p( 1)=81:p(2)=87:p(3)=4 698 print "CCCCECCEC"zs$ <mc> 
2 ER 788 printc4$"76543210” <ep> 
288 dimz%( 127) ‚d( 63) | <fb> 718 printc4$" code: "using" #H#” ;zc: 
298 mf$( 8) =rn$+"normal"+rf$:mr$( 1) poke3562,zc <pe> 
-rn$+"multi"+rfg+" " <hi> 728 print” mode: "mo <bf> 
300 : <je> 738 char1,15,8,"funktionstasten:" <io> 
318 poke65287, peek( 65287) and239 <be> 748 char1,15,1,"================" chh> 
328 : <im> 758 char1,15,2,"code = "+re$+"c"+b 
3380 rem zeichensatzeditor <nn? k$ <bo> 
348 : <oe> 768 char1,15,3,"invert = "+re$+"i" 
358 rem menue <mh> +bk$ <ce> 
368 : Zund 778 char1,15,4,"back to menue = "+ 
378 printcl$c4$b6$"***> zeichencre re$+"esc"+bk$ <ap> 
ator c-16 <##@"H6$ <ig> 788 char1,15,5,"vertikalspiegeln = 
388 printc4$b$" ==============-=---- "+re$+"v"+bk$ <cm> 
_" <fe> 798 char1,15,6,"hori.-spiegeln = "” 
399 printc4$c4$ <im> +re$+"h"+bk$ <bp> 
488 printb9$"steuerung............ 888 char1,15,7,"breite 1/2 = "+re$ 
1"c4$ <ci> +"b"+bk$ <pp> 
418 printb9$"zeichensatzeditor.... 818 char1,15,8,"punkt s/l = "+re$+ 
2"cAa$ ie. <je> "space/fire"+bk$ <bk> 
428 printb9$"zeichendatas......... 828 char1,15,9,"scroll = "+re$+"s" 
3”"c4$ <gk> +bk$ <fg> 
438 printb9$"normal/multicolor.... 838 char1,15,18,"home = "+re$+"hom 
4”c4$ <ii> e"+bk$ <km> 
448 printb9$"ende......2n22nn2nn 848 char1,15,11,"clear = "+re$+"cl 
5” <dh> ear"+bk$ <kp> 
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58 char1,15,12,”drehung = "+re$+" 
#”+bk$ 

558 char1,15,13,"alt. zeichen zuru 
eck = "+re$+"n"+bk$ 

57® char1,15,14,"zeichen uebernehm 
en = "+re$+"f"+bk$ 


588 char1,®, 15, "CTCCECCECCECCECCECE 
BEHHHHHHHENHHHHHNNHRNENH NG 
598 char1,8,18,”scroll = 
r up/down/right/left” 
388 char1,8,28,"drehung 98/189/278 
= d + 1/2/3” 

918 char1,8,22,"return zur ausfueh 
rung von drehung und"”+b2$ 

928 char1,8,23,"scroll druecken” 
938 gosub2548 

948 : 

958 
968 


s + curso 


rem bewegung 

geta$:j=joy( po) 

978 poke65299,56:poke65298, 8 

989 ifa$=c3$or j=3thenx=x+b:ifx>B-b 
thenx=B 

998 ifa$=c1$orj=7thenx=x-b:ifx<dth 
enx=B-b 

1888 ifa$=c2$or j=itheny=y-I:ify<ßt 
heny=7 

1818 ifa$=c4$or j=5theny=y+1l:ify>7t 
heny=8 

1828 ifa$=he$thenx=B:y=8 

1838 ifa$=cl$thenx=9:y=B:printhe$; 
:fort=8t07:print”........ "next 
1848 ifa$="h"thengosub 1378 

1858 ifa$="v”thengosub 1458 

1868 ifa$="i"thengosub 1298 

10878 ifa$="s"thengnsub 1538 

1888 ifa$="u"thengosub 1988 

1898 ifmf=1then11ßß:elseifa$="b"th 
enb=b+1:ifb>2thenb=1 

1188 ifa$="c"thengosub2488 

1118 ifa$="n"thengosub2688 

1128 ifa$="f"thengosub2808 

1138 ifa$=ym$thenmo=mo+1:ifmo>gthe 
nmo=8 

1148 ifa$=yo$thenmo=mo-1:ifmo<dthe 
nmo=g 

1158 ifa$=chr$( 27) thengoto378 

1168 ifa$=" "orj>=127thengoto1238 
1178 poke3072+y*4B+x,peek( 3072+y*4 
8+x)or128 

1188 fort=1t038:next:poke3072+y*48 
+x ,peek{ 3872+y#48+x) and127 

1198 char1,8,16,"breite:":printstr 
$[b) :poke3562, zc 

1288 printhe$left$(qd$, 12)" code:" 
using" #HH#” ; zc 

1218 print” mode: "mo:char1,1,14," 
<shft.[+/-1>" 

1228 goto96B 


<me> 
<fa> 
<go> 
<jh> 
<od> 
<ch> 
<be> 
<oi> 
<ik> 
<jj> 
<bg> 
<ga> 
<em> 
<Cco> 
<gi> 


<1j> 


<ef> 
<jh> 


<ke> 


<hi> 
<00> 
<dh> 
<lg> 
<ap> 


<nl> 
<jn> 
<ej?> 
<ij> 
<ad> 
<af> 
<pi> 
<me> 
<mc> 
<ch> 
<kb> 


<oo> 


<dj> 
<fa> 
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1238 
+1 

1248 
1258 
1268 
1270 
1288 
1298 
1388 


p1=3872+y*#48+x:p2=3072+y#4B+x 


ifb=2andx=7thengoto968 
ifb=Ithenpokep1,p(mo) :goto968 
pokep1,p(mo) :pokep2,p{ mo) 
goto968 


rem invert 

fors=8to? 

1318 forz=Bto? 

1328 ifpeek( 3872+s*48+z) =46thenpok 
e3072+5*40+z,81:g0t01348 

13398 ifpeek( 3872+s*48+z) =8Bithenpok 
e3072+5*40+z,46 

1348 nextz:nexts 

1358 return 

1368 : 

1378 rem horizontalspiegeln 

1388 fors=8to3 

1398 forz=Bto? 

1488 p1=3872+s*48+z:p2=3072+( 7-5) * 
4d+z 

1418 ppi=peek(p1):pokep1,peek(p2): 
pokep2,pp1! 

1428 nextz:nexts 

1438 return 

1448 : 

1458 rem vertikalspiegeln 

1468 fors=dto? 

1478 forz=8to3 

1488 p1=3872+s*48+z :p2=3972+s*48+7 
zZ 

1498 ppi=peek(p1):pokep1,peek(p2): 
pokep2,pp1 

1588 nextz:nexts 

1518 return 

1528 : 

1538 rem scroll 

1548 char1,25,16,"scroll:"” 

1558 geta$ 

1568 ifa$=c2$thenchar1,33,16,b6$+1 
eft$(q1$,6)+"hoch":sc=1 

1578 ifa$=cA$thenchar1,33,16,b6$+1 
eft$(q1$,6)+"runter":sc=2 

1588 ifa$=c3$thenchar1,33,16,b6$+1 
eft$(q1$,6)+"rechts":sc=3 

1598 ifa$=c1$thenchar1,33,16,b6$+1 
eft$(q1$,6)+"links":sc=4 

1688 ifa$=chr$( 13) thengoto1638 
1618 goto1558 " 

1628 : 

1638 onscgosub 1668, 1748, 1828, 1908 
1648 return 

1658 : 

1668 rem hoch-scroll 

1678 fors=1t07 

1688 forz=8t07? 

1698 fort=Btog 


<kj> 
<oh> 
<il> 
<co> 
<hb> 
<ee> 
<dj> 
<hi> 
<gl> 


<hj> 


<im> 
<fb> 
<ce> 
<oe> 
<hi> 
<gi> 
<ep> 


<ce> 


<ce> 
<go> 
<mf> 
<if> 
<ap> 
<jc> 
<gp? 


<hm> 


<mo> 
<ge> 
<gf> 
<cf> 
<og> 
<bj> 
<mn> 


<gd> 
<cm> 


<mnd> 


<gg> 
<ik> 
<il> 
<oo> 
<em> 
<gk> 
<ck> 
<fg> 
<gb> 
<ei> 
<hk> 
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1788 


ifpeek( 3872+s#48+z) =p( t)thenp 


oke3072+5#4@+z-48,p( t) :poke3072+5* 


40+z, 


1718 
1728 
1738 
1748 
1758 
1768 
1778 
1788 


46 
nextt:nextz:nexts 
return 


rem runter-scroll 
fors=6to@step-1- 

forz=8t07 

fort=8t06 

ifpeek( 3872+s5*48+z)=p(t)thenp 


oke3872+s#40+z+48,p(t) :poke3972+s* 


Adt+z, 


1798 
1808 


46 
nextt:nextz:nexts 
return 


1810 : 


18208 
1838 
1848 
1858 
1868 


rem rechts-scroll 

ford=dtomf 
fors=8t07:forz=6toß@step-1 
fort=1tog 

ifpeek( 3872+5%#48+z)=p( t) thenp 


oka3072+5*#40+z+1,plt) :poke3072+5#4 
0+z,46 


1878 
1888 
1898 
1988 
1918 
1928 
1938 
1948 


nextt,z,s,d 

return 

rem links-scroll 

ford=dtomf 
fors=8t07:forz=1t07stepi 
fort=®tog 

ifpeek( 3872+5*48+z) =p(t)thenp 


oke3B72+5#48+z-1,p([t) :poke3072+5*4 
8+z,46 


1958 
1968 
1978 
1988 
1998 
2088 
2818 


nextt,z,s,d 

return 

rem drehung 
char1,11,16,"”drehung:" 

geta$ 
ifa$="1"thenchar1,28,16,b3$+c 


1$+c1$+c1$+" 99” :dr=1 


2828 


ifa$="2"thenchar1,28,16,b3$+c 


1$+01$+c 1$+” 1809” :dr=2 


2838 


ifa$="3"thenchar1,28,16,b3$+c 


1$+01$+01$+"279" :dr=3 


2848 
2058 
2868 
28078 
2888 
2898 
2188 
2118 
2128 
2138 
2148 
2158 
2168 


ifa$=chr$( 13) thengoto2978 
goto2888 


fors=8t07 

forz=8t0? 

d( s?8+z) =peek( 3872+s*#40+z) 
poke3972+s*40+z,46 
nextz:nexts 


ondrgosub2158, 22380,2318 
return 

rem 98 grad 

fors=8to7 


<am?> 
<el> 
<al> 
<ml> 
<li> 
<pl> 
<dm> 
<ff> 


<cm> 
<11> 
<km> 
<gm> 
<1ld> 
<ip> 
<ak> 
<ig> 


<lp> 
<jn> 
<em> 
<am?> 
<pg> 
<fd> 
<pg?> 
<1lm> 


<ko> 
<ei> 


. <on> 


<kn> 
<bf> 
<cg> 
<oh> 


<ph> 


<mh> 


<id> 
<fp> 
<li> 
<gc> 
<1j> 
<ko> 
<np> 
<pl> 
<pa> 
<nk> 
<oa> 
<fg> 
<ck> 
<bp> 


2178 forz=8t07 

2180 p2=3972+( z) *48+7-s 

2198 fort=Btog 

2208 ifd(s*8+z)=p(t)thenpakep2,plt 
) 

2218 nextt:nextz:nexts 

2228 return 

2238 rem 188 grad 

2248 fors=dto3 

2258 forz=8to? 

2268 fort=dtog 

2278 ifd(s#*8+z)=p(t)thenpoke3072+{( 
7-5) #48+7-z,p(t) 

2288 ifd([7-s) #8+7-z)=plt)thenpoke 
3872+s*48+z,p(t) 

2298 nextt:nextz:nexts 

2388 return 

2318 rem 278 grad 

2328 fors=8to? 

2338 forz=dto07 

2348 p2=3872+( 7-z) #40+s 

2358 fort=®tog 

2368 ifd( s*8+z)=p(t)thenpokep2,plt 
) 

2378 nextt:nextz:nexts 

2388 return 

2398 : 

2488 rem codewahl 

2418 : 

2428 geta$ 

2438 ifa$="+"thenze=zc+t1:ifze>127t 
henzc=B 

2448 ifa$="-"thenze=zc-1:ifzc<dthe 
nzc=127 

2458 ifa$="f"thengoto2884 

2468 ifa$=chr$( 13) then2528 

2478 printhe$left$(gd$, 12)" "rn$"c 
ode"rf$": "using" ###";zc; 

2488 char1,1,14,b6$+"” "+rn$+"[ +/-] 
"+rf$+" ":poke3562,zc 

2498 goto2428 

2588 return 

2518 : 

2528 rem zeichen vergroessern 

2538 : 

2548 ad=dec( "3889”) 

2558 fors=8t07 

2568 forz=mfto?7+mfstepI+mf 

2578 pi=(peek( ad+zc*#8+s) and2“( 7-z) 
) :ifmf=1thenp2=( peek( ad+zc*8+s) and 
2°(7-zZ+1)) :elsep2=p1 

2588 p=3072+z+s?48 

2598 ifpi<>2°(7-z)thenifmf=®thengo 
t02648:elseifmf=1then2618 

2688 ifp1=2°(7-z) thenifmf=@thenpok 
ep,81:g0t02658:else2618 

2618 ifp1=1*2°(7-z) andp2=1#2*( 7-z+ 
1)thenpokep,81:pokep-1,81:g0t02658 


<ed> 
<fm> 
<ph> 


<cf> 
<db> 
<ph> 
<ke> 
<ea> 
<dl> 
<gj? 


<pl> 


<il> 
<aj> 
<jg> 
<jd> 
<hi> 
<gl> 
<hp> 
<ap> 


<oa> 
<ja> 
<di> 
<pi> 
<lp> 
<ca> 
<be> 


<1h> 


<mf> 
<fg> 
<ig> 


<pj? 


<jb> 
<ph> 
<cj? 
<oj> 
<gd> 
<bb> 
<jg> 
<bb> 
<cj> 


<fe> 
<bn> 
<l1l> 
<nd> 


<ee> 
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2528 ifp1=1#2*(7-z) andp2=®thenpoke 3868 poke1319, 13:poke132®, 13:poke2 

»,87:pokep-1,87:g0t02658 <kp> 39,2:end <kj> 
2538 ifp2=1#2*(7-2+1)andp1=Bthenpo 3070 : <em> 
kep,42:pokep-1,42:g0t02658 <gp> 3888 gosub334B: PERTELEETTSTTEN A 

2548 pokep,46:ifmf=1thenpokep-1,46 <am> +18"data -1" <ih> 
En noxt:next <bp> 3898 gosub3128:print” 80102980” chr$ 

2568 got 02508 <ej> (19) <ab> 
2678 : <ck> 3188 : <ik> 
7558 rem altes zeichen zurueck <en> 3118 poke1319,13:poke1328, 13:poke2 

2698 : <fd> 39,2:end <jp> 
z7a8 a =dec( "daBB”) <ig> 3128 print”zd="zd":po="po":k="k+1" 

2718 poke1177,62 <eh> :dimz%( 127) Ss :return <gk> 
2728 fors=Bto? eng> 3138 rem normal/multicolor-zeichen <il> 
2738 forz=8t07 <1p> 3140 : <nk> 
2748 p=( peek(ad+zc#8+s)and2*(7-z)) <df> 3158 scnelr <jm> 
2758 ifp=®thencharl,z,s,"”.":elsech 3168 print” aktueller modus : "mf$ 

ari,z,s,"g" <gl> {mf) er 
2768 next:next <jd> 3178 print:print <ob> 
2778 poke1177,63 <bd> 3188 print” soll das zeichen in "r 

2788 return <fl> n$"m"rf$"ulticolor oder " <ip> 
2798 : <bl> 3198 print” "rn$"n"rf$"ormal erste 

2888 rem zeichen uebernehmen <me> 1lt werden ?” “05? 
2818 : Ze 3288 print:print:print <ha> 
2828 fors=Bto?:p=# <ho> 3218 print” 88 = zeichenfarbe 1 <br> 
2830 Forz=7tomfstep-I-mf <ho> 3228 print” WW = zeichenfarbe 2 <gb> 
2848 p1=3072+z+s#*48:ifmf=1thenp?=3 3238 print” #** = zeichenfarbe 3 <de> 
872+z+s#48-1:elsep2=p1 <jo> 3248 getkeym$ <pc> 
2858 ifpeek( p1)=Blorpeek( p2)=B1the 3258 ifm$="m"thenmf=1:g=3:x=2*int( 

np=p+2°( 7-z) :ifmf=1thenp=p+2"( 7-z+ x/2) :b=2:g0t0378 <oc> 
1) <pc> 3268 ifmf=1then37@:else:mf=0:b=1:g 

2868 ifpeek(p1)=87orpeek( p2)=87the -1: BRRAS <hi> 
np=p+2°(7-z) <hj> 3270 : <np> 
2878 ifpeek( p1)=42o0rpeek( p2) =42the 3280 rem ende <1d> 
np=p+2*( 7-z+1) <cj> 3298 : <ah> 
2888 next:pokedec( "3888") +zc#8+s,p 3388 end <gb> 
:next <fe> 3318 : <cp> 
2898 z%lzc)=1:flag=-1:return <oc> 3328 rem nachspann =============== <do> 
2908 : <pi> 3338 rem #* farbceodes/steuercodes * <hb> 
2918 rem zeichen in datas ablegen «<ih> 3340 c4$=chr$( 817) :rn$=chr$( 818) <ac? 
2928 : <ca> 3358 he$=chr$( 819) :re$=chr$( 828) <jk> 
2938 ifflag=®thengoto368 <jk> 3368 c3$=chr$( 829) :bk$=chr$( 144) <ai> 
2948 k=8:fort=8t0127:poke1383+t,2% 3370 c2$=chr$( 145) :rf$=chr$( 146) <dc> 
(t) :next <kh> 3388 c1$=chr$( 147) :c1$=chr$({ 157) <ph> 
2958 ifpeek( 1383+K) =1thenad=dec( "3 3398 rem #*#*# zeichensatz/graphik * <kh> 
BDA") :zd=zd+1Q:goto3W@ß:elsek=-k+1 <1d> 3480 zs$=chr$( 189) :ym$=chr$(219)  <lo> 
2968 ifk<127thengoto2958 <bk> 3418 yo$=chr$( 221) <pe> 
2978 goto3080 <eg> 3428 rem ####&#%#2 zeichenfolgen * <ka> 
2980 gosub3348:g0t0368 <aj> 3430 qd$="":quß="":q1$="":forg=1to 

2998 : <kn> 40 ’ <ep> 
3008 gosub3348:printc1$c4$cA$cA$zd 3448 qd$=qd$+c4$:qu$=qu$+c2$ <1p> 
"data”k”,"; <hl> 3458 qi$=q1$+c1$ <bf> 
3818 fort=Bto? <jn> 3468 nextg:b$=chr$( 32) :b2$=b$+b$ <cd> 
3028 d=peekl ad+k#8+t) :d$=str$ld) <ef> 3470 b3$=b2$+b$:b6$=b3$+b3$ <en> 
3038 printright$(d$,len{d$)-1)","; 3488 b9$=b6$+b3$:b$=b9$+b$ <dn> 
:next:printc1$" " <ge> 3498 return <on> 
3840 gosub3128:print”"goto2958"chr$ TODD. DER Freu san SR 
(19) <ce> 8888 rem einleseprogramm <l1k> 
3858 : <ct> BBIR : <am> 
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8028 readz:ifz=-Ithenpoke65298,8:p 


oke65299,56:g0t065535 <op? 
8038 Fort=Bto7:readd:poke 14336+z*8 

+t,d:next:goto65535 <nb> 
8848 : <ej? 
80858 rem datas fuer neue zeichen <pg> 
8868 : <hb> 
8878 =p=r=0=g=-r=3=m=sm=e=n=d=>e===== <fg> 


BEIBÖRSE 


SUCHE COMPUTE Mit 
u. Sonderheft f. C16/ 
Plus4, auch C16/Plus4- 
SPECIAL-Hefte u. ande- 
re Lit. Schickt Eure Li- 
sten u. Preise bitte schnell 
an: Wolfgang Polenda, 
Brückenstr. 15, 5350 Eu.- 
Roitzheim 


C16/PLUS4! Direkt aus 


—#USA. Freesoft, ca. 2.500 


Block z.B. Druckersteue- 
rung, Biorhythmus, Black 
Jack, Kalenderdruck. Zu- 
W sätzlich: Lotto, Vokabel- 
) prog., monatl. Kosten, 
Etikettendruck. Schickt 
+ 20,— DM an: Wolfgang 
Koß, Beringstr. 29, 2215 
Hademarschen 


Den Mutlosen 
ohne Arbeit 
besuchen 


earitas 


Computerzeitschriften 
RUN, 64er, Data Welt, 
Input 64 jahrgangsweise 
zu verkaufen. Außerdem 
Spektrum, Bild der Wis- 
senschaft, Physik in un- 
serer Zeit, mehrere Jahr- 
gänge, preiswert zu ver- 
kaufen. Tel. 07231/ 
481493 


RELATIVE Dateiverw. 


/ider Spitzenklasse f. +4/ 


C16/116. Freie Masken- 
erstellung. Bis zu 1500 
Datensätze (160 kB). Mit 
Handbuch 19,50 DM + 
Porto u. Nachnahme. Jür- | 
gen Vowerk, Dörener 
Weg 29a, 4790 Paderborn, 
Tel. 05251/58423 


erscheint zweimonatlich in 
der CA-Verlags GmbH, 
einer Gesellschaft der 
Aktuell-Gruppe 


© 1988 by CA-Verlags GmbH 
Heßtraße 90, 

8000 München 40. 

Für unaufgefordert einge- 
sandte Manuskripte und 
Listings keine Haftung. Bei 
Einsendung von Texten, 
Fotos und Programmträgern 
erteilt der Autor dem Verlag 
die Genehmigung für den 
Abdruck und die Aufnahme 
in den Kassetten-Service zu 
den Honorarsätzen des 
Verlages und überträgt dem 
Verlag das Copyright. Alle 


in dieser Zeitschrift veröffent- 


lichten Beiträge sind urheber- 
rechtlich geschützt. Jedwede 
Verwendung ist untersagt. 
Namentlich gezeichnete Bei- 
träge unserer Mitarbeiter 
stellen nicht unbedingt die 
Meinung der Redaktion dar. 


+4-USER aus der DDR 
sucht Superbase f. +4 u. 
Alles über Superbase u. 
Script/Plus; bin auch an 
Software u. Erf.-aus- 
tausch interessiert. Karbe, 
Th.-Brugsch-Str. 50, DDR- 
1115 Berlin 


D16/+4-SUPERPRO- 
RAMME, Spiele, An- 
ender, Kopierprogr. 
ratis-Info m. Tips u. 
tricks. Liste anfordern. 


Str. 113, 6103 Griesheim 


hrc e.V. — Plus4 » C16 * 
C116 *® Anwender: Der 
Verein speziell für uns! 
Mit Zeitschrift u. Soft- 
ware-Bibliothek. Info 
beim hrc e.V., Bauerland 
15, 4800 Bielefeld 1 


C16/64K, verstärktes 
Netzteil, Floppy 1541 II 
(gara.); J oystick, Datas, 
1/O-Port u. Turbo + 


| Steckpl., Bücher, Zeit- 
| schriften, ROM-Listing, 


Basic-Kurs, Ace, Spitzen- 
software, NP 1600,— DM, 
VB 800,— DM. H. Boss- 


} hammer, Heckenweg 2, 


4920 Lemgo 1, Tel. 
05261/87261 
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SUCHE Tauschpartner f. 
+4. Nur Top-Software ge- 
sucht. Suche auch Bü- 
cher u. Hefte f. +4. Li- 
sten an Lars Weißbrodt, 
Erpener Weg 14, 4503 
Dissen 


VERKAUF/TAUSCH/ 


f [KAUF — C16/Plusd. An- 


wender, Games, Freesoft, 
Info bei Jürgen Cissarek, 
Giebelstr. 5, 4650 Gelsen- 
kirchen. 100% Antwort. 


C16 + 64 K, 1531, Druk- 
ker, viele orig. Anwättder- 
u. ü. Spiel- Progr. (64 K, 
überw. Kingsoft), J oy- 
sticks sowie ca. 3 kg Lite- 


‚ratur; NP über 800,— DM, 


B 300,— DM. Bernd 
Mackeldanz, Kanzlerstr. 
12, 4000 Düsseldorf 30 


30 GAMES für C16/116/ 
+4 auf Tape für 10,-- DM 
(incl. Porto). Dietmar 
Neumann, Trierer Str. 
398, 5100 Aachen 


SUCHE Datasette 1531 
oder 1530 m. Cassetten- 
ortadapter. M. Greifen- 
Stöcklerstr. 8, 
CH-8610 Uster 
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